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FOREWORD 

This  joint  report  was  prepared  by  the  Vehicle  Equipment  Divi- 
sion, Air  Force  Flight  Dynamics  Laboratory  (FEE)  and  by  the  ASD 
Computer  Center  (ADDS),  Wright-Patterson  Air  Force  Base,  Ohio.  The 
report  contains  the  results  of  an  in-house  research  program  to  de- 
velop a computer  program  for  the  utilization  of  a vibration  pre- 
diction technique  applied  to  equipments  mounted  in  fighter  air- 
craft. 

This  work  was  conducted  from  21  March  1976  to  15  April  1977 
under  Task  61460412  with  Robert  W.  Sevy  as  project  engineer  and 
under  Problem  Number  D760078  with  Mark  N.  Haller  as  mathematician. 
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SECTION  I 
INTRODUCTION 

From  the  equipment  design  and  the  functional  test  and  analysis 
viewpoint,  it  is  important  that  the  predicted  vibration  spectra  of 
fighter  aircraft  equipments  emulate  the  real  vibration  histories 
as  closely  as  the  forecasting  technology  will  allow.  To  do  this, 
it  is  necessary  to  be  able  to  portray  the  variform  vibration  spectra 
as  the  aircraft  cycles  through  a variety  of  flight  conditions,  atti- 
tudes, and  phases  that,  when  seen  in  terms  of  their  sequential  assem- 
bly, constitutes  a vibrational  representation  of  the  mission  flight 

profile.  Spectral  fidelity  is  important  not  only  from  the  viewpoint 
* 

of  the  reversible  , functional  failure  — a failure  that  underlines 
the  interrelationship  between  the  vibration  spectral  details  and  the 
concomittant  equipment  malfunction  — its  importance  is  stressed 
again  when  vibration  test  inputs  are  chosen  for  the  long-time  test 
spectra  associated  with  various  reliability  test  philosophies.  Here, 
premature  fatigue  failure  often  results  because  the  vibration  test 
spectrum  exceeds  the  in  situ  spectrum;  or  more  explicitly,  fails  to 
adequately  mirror  the  real  vibration  environment  relative  to  the 
spectral  details,  and  to  the  real  time  of  exposure. 

1.0  Approach 

The  detailed  development  of  the  vibration  prediction  method 
utilized  in  this  program  is  found  in  Reference  1.  However,  for  re- 
view purposes,  it  is  useful  to  briefly  survey  major  elements  of  the 
technique. 


* change  the  spectrum  and  the  equipment  resumes  operation 
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1.1  Fuselage  Vibration  Behavior 

The  aircraft  fuselage  response  is  subdivided  into  three 
regimes:  the  low  frequency  region,  dominated  by  the  fuselage  body 

bending  modes;  the  medium  frequency  region,  determined  by  the  re- 
sponse of  the  internal  structure;  and  the  high  frequency  domain, 
which  is  established  by  the  aircraft  skin  contributions.  Three 
transfer  functions  L(f),  M(f ) , and  H(f)  are  assigned  to  these  regions: 
low,  medium,  and  high,  respectively. 

The  boundary  layer  pressure  spectral  density  P(f)  is  trans- 
ferred through  L(f ) , M(f ) , and  H(f)  to  produce  a structural  response 
spectrum,  G(f ) , which,  in  turn,  is  attenuated  and  further  transformed 
by  other  functions  as  one  progresses  into  the  aircraft  interior. 

P(f)  and  the  three  transfer  functions  are  variants  of  the  same  basic 
function,  the  derivation  of  which  is  developed  fully  in  Section  II. 
Other  special  variants  of  this  same  function  are  employed  to  account 
for  a variety  of  equipment  mounting  methods.  A further  variation 
is  invoked  to  simulate  a number  of  aircraft  phases  and  maneuvers  — 
all  are  discussed  in  Section  III  and  all  are  detailed  in  their  appli- 
cable Appendices.  Section  III  describes  the  computer  program  and 
its  operating  procedures,  taken  from  the  viewpoint  of  the  user. 

Section  IV  demonstrates  the  applications  of  the  prediction  method  and 
the  program  as  it  is  applied  to  a number  of  aircraft  equipment  mounting 
methods  and  flight  conditions.  Appendix  F contains  the  complete  com- 
puter program  in  FORTRAN  IV. 
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SECTION  II 
FLEX  FUNCTION 


1.0  Derivation 

A rather  detailed  discussion  of  the  flex  function  and  its  der- 
ivation is  found  in  reference  1.  But  since  we  intend  to  expand  on 
the  earlier  work  and,  moreover,  since  the  function  operates  as  the 
central  mechanism  of  the  computer  program,  a review  of  the  main 
elements  is  essential. 

Consider  the  following  function  and  its  mirror  image: 

0 = arctan  A (1) 

0 = TT  - arctan  A (2) 

where:  0 = angle  (rads) 

A = 2B(a)/a)  )/l-(a)/a) 
o o 

0)  = angular  frequency  (rads/Hz) 

0)^,0)^^  = locator  frequency  (rads/Hz) 

3,6^  = slope  factor 

Equations  (1)  and  (2)  combine  graphically  to  form  a bandpass 

characteristic  (Figure  la).  Equation  (1)  describes  the  low  frequency 

roll-off;  equation  (2)  the  high  frequency  roll-off.  Note  that  in 

this  form,  frequency  translation  occurs  by  control  of  o)  (lo  ^)  . Slope 

o o 

control  Is  readily  obtained  by  adjustment  of  These  flexible 
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A 


Figure  1.  Derivation  of  the  Flex  Function  and  Associated  Integral 
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and  useful  properties,  by  which  response  functions  may  be  described 
using  only  four  notations,  will  become  more  obvious  a little  later 
on. 

1.1  Further  Adjustments 

However,  there  remains  an  objection  to  the  curve  in  this 

form  owing  to  the  asymptotic  properties  of  the  function.  That  is, 

oj/o)^  must  approach  infinity  in  order  that  0 tt.  Since  tt  represents 

the  curve  maxima,  and  it  is  the  maxima  that  we  intend  to  reference 

when  utilizing  the  functions,  we  must  readjust  the  curves  vertically 

to  obtain  a value  of  0 = it  at  a real,  finite  value  of  cd/cd  . This 

o 

we  do  as  follows: 

0/0^  = (arctan  A)/0^  (3) 

0/0  ^ = (tt  - arctan  A)/0  ^ (4) 

X X 

2 

where:  9 = arctan  [23x/l-(x)  ] 

X 

o 

and:  0^>  = 7T-arctan  [20^x^/l-(x^)  ] 

The  curves  are  now  shown  as  Figure  1(b)  and  appear  in  normalized 
form,  that  is,  the  maximum  value  is  unity  at  0 = 0 and  0=0^. 

XX 

We  may  let  the  functions  represent  a pertinent  variable, 
say  acceleration  (a),  by  the  following  substitutions. 

Let:  0/0  = K a 

X 

and:  a = 1/K(arctan  (5) 

where;  (arctan  = g(w/w^) 
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when:  u)  = xo)  , then  g(x)  = 1.0 


and  a = a 

max 


From  inspection  of  (5) , 1/K  = a . If  we  substitute  this 

max 

into  (5),  we  have  a generalized  form  for  the  independent  variable,  a: 


a = a [(arctan  A)/0  ] (6) 

max  X 


O < (Jl)/(JL)  < X 


Operating  similarly  for  the  high  frequency  roll-off  portion 


of  the  flex  function  we  have: 


a = a [(7T-arctan  A)/0  (7) 

max  X 

x^  < a)/(i)  ^ 

— o 

A good  deal  of  the  time  we  will  be  concerned  with  mean 
squared  values  of  the  acceleration  and  the  acceleration  power  spectral 
densities.  Thus,  (6)  and  (7)  may  be  squared  as  follows: 

a^  = a^  [(arctan  A)/0  (8) 

max  X 

a^  = a^  [(TT-arctan  A)/0  (9) 

max  X 

The  squared  curves  are  shown  in  Figure  1(c).  When  using  power  spec- 
tral densities,  we  will  also  be  concerned  with  overall  mean  squared 
acceleration,  thus  the  integrals  of  (8)  and  (9)  appear  as  follows: 

= a^  f [(arctan  A)/0  ]^d(a)/u)  ) (10) 

a max  J x o 

a 


6 


AFFDL-TR-77-101 


° / [(Tf-arctan  A)/0  d(u)/a)  ) (11) 

cx  luaX  w X O 

c 

Figures  1(d)  and  (e)  show  the  integrals  of  the  low  and  high  frequency 

curves,  respectively.  And  since  most  of  the  time  we  will  use  the 

2 2 

log  of  the  independent  variable  a (referred  to  a ) we  present  (8) 

max  ^ 

and  (9)  as  follows: 


dB  = 101og^Q[ (arctan  A)/0^]^ 

(12) 

dB  = 101og^Q[  (iT-arctan  A)/6^^]^ 

(13) 

Also,  since  we  will  be  using  hertz  for  the  frequency  variable,  we 
substitute  f in  lieu  of  o)  and  180®  for  tt.  The  final  set  of  curves 
are  shown  in  Figure  1(f). 

2.0  Flex  Function  Display 

Values  of  x and  x^  were  chosen  for  the  low  and  high  frequency 
functions  as  were  values  of  3 and  3^*  Since  x and  x^  represent  the 
frequency  ratios  of  the  low  and  high  frequency  function  at  which  nor- 
malization of  the  ordinate  value  occurs,  they  are  identified,  in 
truncated  computerese,  as  NORM.  FREQ.  Both  parametrics  were  selected 
to  cover  the  range  of  vibration  spectra  that  one  associates  with  the 
primary  structure  of  aircraft  viewed  over  a wide  range  of  structural 
locations  and  flight  conditions.  Figures  2 and  3 show  a typical  low 
and  high  frequency  curve  for  x = NORM.  FREQ.  = 2.00  and  x"  = NORM. 
FREQ.  = 0.500,  respectively.  The  3(8^)  parameters  are  shown  also  on 
the  figures  as  curve  families  having  3 and  3"  in  the  following  grad- 
uations: 0.1,  0.2,  0.4,  0.6,  0.8  and  1.0. 
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NORM.  FREQ.  = 2.000 


o 


Figure  2.  Typical  Flex  Function  for  Low  Frequency  Rolloff 
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NORM.  FREQ.  = 0.500 
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2,1  Low  Frequency  Boost 

If  we  examine  the  arctan  portion  of,  say,  equation  (1), 

we  note  that  the  numerator  is  of  the  form  23(a)/a)  )^,  where  a = 1 

o 

for  the  functions  represented  by  Figures  2 and  3.  However,  by 
allowing  a to  go  to  zero  a novel  but  useful  low  frequency  pre- 
emphasis results  (Figure  4).  In  short,  the  curves  (in  the  low  fre- 
quencies) are  raised;  given  bass  boost,  as  the  audiophiles  are  fond 
of  saying.  Such  a phenomena  corresponds  to  what  happens  to  the  air- 
craft vibration  spectra  as  the  aircraft  passes  through  certain  stages 
of  its  flight  profile  — for  example,  during  taxi,  takeoff  roll,  the 
dumping  of  speed  brakes,  or  flaps;  and  during  gunfire  or  inflight 
refueling  phases.  Note  that  we  may  make  a a function  of  time  and, 
operating  within  the  limits  of  a = 1 and  a = 0,  we  are  able,  in  a 
gradual,  continuous,  and  reversible  way,  to  effect  the  smooth  trans- 
ition from  one  state  to  the  other.  This  property  is  of  significance 
when  we  view  the  function  as  a programmable  system  capable  of  de- 
scribing a useful  variety  of  flight  vibration  phases. 

Notice  that  identical  variations  can  be  reflected  into  the 
high  frequency  rolloff  curve  (equation  13)  by  assigning  an  a'  within 
the  interval  of  1 and  2.  Figure  5 shows  a set  of  functions  for  = 
2.00.  From  here  on  out,  alpha  will  follow  the  same  diacritic  sym- 
bolism as  has  been  assigned  to  the  other  high  and  low  frequency  roll- 
off parameters.  Thus,  a is  assigned  to  the  low  frequency  rolloff 
equation  and  refers  to  the  exponent  for  the  high  frequency  rolloff 
case.  Also,  note  that  unless  a and  a'  are  specifically  stated,  their 
values  are  always  presumed  to  be  unity. 
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NORM.  FREQ.  = 2.000 


Figure  4.  Flex  Function  with  Low  Frequency  Boost 
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2.2  Boundary  Layer  Spectra 

If  we  choose  = .01  for  the  high  frequency  rolloff  func- 
tion we  will  obtain  a form  characterized  by  a relatively  expansive, 
flat  spectrum  in  the  lower  frequency  part  of  the  curve.  Moreover, 
if  we  select  somewhat  different  values  of  (0.2,  0.3,  0.4,  0.6, 

0.8,  1.0,  1.5)  we  will  have  defined  a family  of  curves  that  will 
serve  to  provide  a good  fit  for  the  pressure  spectral  density  of  the 
boundary  layer  for  a large  number  of  aircraft  flight  conditions. 

The  boundary  layer  curves  are  shown  as  Figure  6. 

3.0  Prediction  Equations 

The  flex  function  is  broken  out  into  the  forms  and  relationships 
to  be  used  in  the  computer  program.  First,  the  equations  are  stated 
in  order  of  progression. 


P(f)  [(()^(x)L(f),  M(f),  H(f)]  = G(f) 


(lA) 


where : 


P(f)  = the  boundary  layer  pressure  spectral  density  at 
some  downstream  distance  (x)  on  the  aircraft 
surface. 

(f)  (x)L(f)  = the  product  of  the  bending  mode  shape,  (()^(x), 

^ at  downstream  distance,  x,  and  the  low  fre- 

quency transfer  function,  L(f),  of  the  air- 
craft fuselage. 

M(f)  = the  medium  frequency  transfer  function  of  the  air- 
craft fuselage  internal  structure. 

H(f)  = the  high  frequency  transfer  function  of  the  fuselage 
skin. 

G(f)  = the  PSD  response  of  the  aircraft  primary  structure 
(g  /Hz) . 
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NORM.  FREQ.  = 0.010 


Figure  6.  Flex  Function  Applied  to  the  Aircraft  Boundary  Layer 
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The  term,  primary  structure,  is  defined  as  that  structure  of  the  air- 
craft which  comprises  the  main  load  carrying  members  or  elements  of 
the  aircraft.  Examples  of  primary  structure  are  skin,  frames,  rings, 
bulkheads  (periphery) , stringers  and  includes  those  consoles  struc- 
turally integrated  with  the  aircraft  outer  walls. 

The  working  forms  for  P(f)  are  described  in  Appendix  A and  are 
listed  as  equations  A-1,  A-2,  A-3,  and  A-4. 

The  mode  shape,  (t>^(x),  is  a function  of  aircraft  type  and  is 
included  in  Appendix  B for  typical  aircraft.  The  aircraft  structural 
transfer  functions  L(f),  M(f ) , and  H(f)  are  listed  in  Appendix  C 
together  with  appropriate  tables. 

3.1  Special  Functions 

Certain  flight  phases,  that  deviate  from  the  straight  and 
level  condition,  are  introduced  by  operating  on  P(f)  with  special 
functions  designated,  S(f). 


P(f)Sj^(f)  . Pj^(t) 

(15) 

P(t)Sj3(£)  . P^jCf) 

(16) 

P(£)Sj(f)  - Pj.(£) 

(17) 

P(£)Sj^(£)  - Pj^(£) 

(18) 

where : 

SbtC^)  ~ Special  function  for  the  buffet  turn  flight 
phase. 

Pg^(f)  = Pressure  spectral  density  spectrum  of  a fighter 
aircraft  during  buffet  turn  (PSF^/Hz) . 
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S^(f)  = Special  function  for  the  takeoff  phase. 

P^(f)  = Equivalent  pressure  spectral  density  spectru^ 

of  an  aircraft  during  the  takeoff  phase  fPSF  /Hz). 

Sj^(f)  = Special  function  of  an  aircraft  during  the  landing 
phase. 

P^(f)  = Equivalent  pressure  spectral  density  spectrum  of 
an  aircraft  during  the  landing  phase  (PSF  /Hz) . 

SifiCf)  = Special  function  for  low  frequency  atmospheric 
turbulence. 


These  special  functions  together  with  their  appropriate 
tables,  curves,  and  explanations  are  found  in  Appendix  D. 

The  second  set  of  basic  equations  is  as  follows: 

G(f)  Y(f)  = R(f)  (19) 

where : 

Y(f)  = the  transfer  function  for  equipments  mounted  on 
secondary  structure. 

R(f)  = the  PSD  response  of  the  secondary  structure,  or  the 
input  to  the  aircraft  equipment,  mounted  thereon 
(g  /Hz). 

Secondary  structure  is  defined  as  that  structure  to  which 
equipment  is  attached  onto  or  contained  in  and  whose  mounting  points 
terminate  at  the  outer  frame,  skin,  stringers,  bulkheads,  floors, 
spars  or  cast  framing  of  the  primary  structure.  Examples  of  secondary 
structure  are  instrument  panels,  trays,  racks,  brackets,  shelves, 
trusses,  beams,  and  consoles. 

The  final  equations  apply  to  those  equipment  mounting  con- 
figurations in  which  isolated  equipment  are  mounted  on  secondary 
structure ; 


R(f)  = a(f) 


(20) 
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where : 

2 

a(f)  = The  response  of  the  isolated  equipments  (g  /Hz). 

v(f)  = Transfer  function  for  equipment  mounted  on 
isolators. 

R(f)  = Response  of  secondary^structure  (instrument  panels, 
shelves,  or  racks)  (g  /Hz). 

3.2  Equipment  Mounting  Categories 

How  and  when  G(f ) , Y(f),  and  a(f)  are  used  depends  upon 
what,  how,  and  where  the  equipment  is  mounted  in  the  aircraft  — and 
this  is  established  by  reference  to  equipment  mounting  categories 
and  their  associated  transfer  functions  which  are  classified  as 
follows : 

Category  I - Equipment (s)  attached  to  primary  structure 

a.  Isolated.  Equipment (s)  attached  to  primary  structure 
through  vibration  isolators. 

b.  Non-Isolated.  Equipment (s)  directly  attached  to  primary 
structure. 

Category  II  - Equipment  attached  to  instrument  panels 

a.  Isolated.  Equipment (s)  whose  instrument  panel  is  attached 
to  primary  structure  through  vibration  isolators. 

b.  Non-Isolated.  Equipment (s)  whose  instrument  panel  is  di- 
rectly attached  to  primary  structure. 

Category  III  - Equipment (s)  mounted  on  shelves  or  in  racks 

a.  Isolated.  Equipment (s)  attached  to  shelves  or  in  racks  - 
with  shelf  or  rack  isolated. 
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b.  Non-Isolated.  Equipment (s)  attached  to  shelves  or  racks  - 
with  shelf  or  rack  non-isolated . 

Category  IV  - Equipment (s)  that  is  isolated  and  mounted  on  shelves 
or  in  racks. 

a.  Category  III (a)  with  equipment (s)  isolated. 

b.  Category  Ill(b)  with  equipment (s)  isolated. 

Category  V - Lightweight  equipment  items  directly  attached  to  pri- 
mary structure  via  light  bracketry. 

Category  VI  - Equipment (s)  mounted  to  or  on  the  bulkhead  of  the  for- 
ward looking  radar  (FLR) . 

The  categories  of  transfer  functions,  their  tables,  curves, 
and  applications  are  found  in  Appendix  E. 
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SECTION  III 
PROGRAMMING 

The  equations  shown  in  Paragraph  3 of  Section  II  for  predicting 
power  spectral  density  inputs  to  aircraft  equipment  are  laborious 
to  evaluate  - given  many  selected  frequencies  over  a relatively  wide 
band*  And,  even  though  these  equations  are  few  in  number  and  are 
not  of  themselves  complex,  a digital  computer  program  was,  nonethe- 
less, strongly  suggested.  Such  a program,  therefore,  was  prepared 
to  evaluate  the  prediction  equations  at  a frequency  resolution  suf- 
ficiently fine  to  produce  quality  plots  and  in  the  combinations  and 
sequences  required  by  the  particular  set  of  input  data  which  de- 
scribes the  aircraft  flight  profile* 

Conceptually,  the  program  is  so  designed  that  a minimum  of  in- 
formation on  flight  conditions  is  required  as  input  for  predicting 
the  vibration  profiles  of  the  aircraft  structure  and  equipments. 

The  input  data  consists,  chiefly,  of  numerical  values  and  descriptive 
information  concerning  such  flight  parameters  as  aircraft  type,  al- 
titude, Mach  number,  equipment  weight,  mounting  categories,  and 
flight  maneuvers* 

For  output,  the  values  of  the  particular  transfer  and  response 
functions,  which  were  a part  of  the  prediction  process,  are  printed 
in  tabular  form  and  presented  as  a function  of  frequency.  If  de- 
sired, plots  of  these  results  can  be  produced  on  peripheral  plotters. 


19 


AFFDL-TR-77-101 


1.0  Program 

The  program  consists  of  a relatively  large  main  section  which, 
in  its  operation,  "calls"  approximately  a dozen  subroutines.  The 
structure  is  simple. 

2.0  Program  Preparation 

The  program  is  prepared  for  execution  by  first  punching  numerical 
and  alpha-numeric  descriptive  information  for  key  aircraft  and  flight 
profile  parameters  on  cards,  in  specified  field  locations;  then  in- 
serting these  cards  in  the  program  deck  at  its  end. 

2.1  Execution 

On  program  execution,  tabulations  of  the  input,  the  transfer 
and  the  response  functions  are  printed  (dB  as  a function  of  frequency) . 
The  information  necessary  for  producing  plots  of  these  tabulated 
values  is  transferred  in  a device-independent,  standard  form  from 
central  memory  to  a permanent  file  located  in  mass  storage. 

In  the  final  step,  plots  of  all  or  selected  transfer  func- 
tions are  obtained  by  executing  a small  post-processor  program  con- 
taining a plot-directive  card  which  is  inserted  by  the  user.  This 
program  provides  for  transfer  of  the  plot  information  from  the  per- 
manent file  to  central  memory  and  also  provides  a "write",  on  magnetic 
tape,  of  information  necessary  for  a plot  of  each  of  the  functions 
specified  on  the  plot-directive  card.  This  tape  is  mounted  on  a CALCOMP 
plotter  to  produce  the  plots. 
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Before  we  proceed  to  the  program  deck  card  order  — the 


plot,  the  keyboard  instructions,  and,  finally,  the  card  preparation  ~ 
it  is  useful  to  note  that  the  basic  language  and  format  of  the  pro- 
gram (Appendix  F)  is  Fortran  IV  and  as  such  may  be  readily  adapted 
to  other  computer  facilities.  However,  certain  address  characteris- 
tics of  the  card  arrays,  the  plotting,  the  display  instructions  re- 
flect the  needs  of  the  individual  computer  facility;  and  the 
demands  of  its  terminals.  In  this  report,  the  ASD  Computer  Facility 

and  Terminals  are  invoked  — elsewhere,  the  reader  is  invited  to 

consult  local  computer  services. 

* 

2.2  Functions  Available  for  Plotting 


Takeoff 


Straight  and  Level 


Buffet-Turn 


Turbulence 


Landing 


Categories  la,  Ila,  Ilb,  Ilia,  Illb,  V,  VI 

P(f),  G(f),  Y(f),  R(f) 

P^(f),  G^(f),  Y(f),  R^(f) 

P^(f),  Gj^(f),  Y(f),  R^(f) 

P^g(f),  G^g(f),  Y(f),  R^g(f) 


Categories  IVa  and  IVb 

Straight  and  Level  P(f)»  G(f),  Y(f),  R(f),  Y^.(f),  A(f) 


lA 


Buffet-Turn 


Landing 


Takeoff 


Turbulence 


PBT(f).  ^T<f> 

P^(f),  G^(f).  Y(f),  R^(f).  Y^^(f),  A^(f) 
P^(f),  Gj^(f),  Y(f),  Rj^(f),  Y^^(f),  A^(f) 
Ptb^^)’  Y(f),  R^g(f),  Yj^^(f),  A^g(f) 


* See  Appendices  D and  E 
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Straight  and  Level 

Buffet-Turn 

Takeoff 

Landing 

Turbulence 


Category  Ib 

P(f).  G(f) 

GetCE) 

P^(f),  G^(f) 
PL(f).  GE(f) 


Execution  is  essentially  sequential  — the  only  important  branch  is 

a loop  from  the  program  end  back  to  the  beginning  in  order  to  repeat 

the  process  whenever  the  aircraft  flight  parameters  change.  All 

other  branches  terminate  at  nearby  statements. 

Transfer  and  response  functions  can  be  plotted  on  a CALCOMP 

(incremental)  plotter.  Calls  are  made  to  selected  subroutines  in 
* 

the  DISSPLA  software  system  for  the  desired  data  display. 

Salient  features  of  program  design  are  summarized  below. 


Language : FORTRAN  IV 


Digital  Computer:  Control  Data  Corp.,  6600  and 
Cyber  73  computers 


Central  Memory 

Requirements:  120,000  (octal)  words  for  compiler; 

program,  and  plot  subroutines 

Word  Size:  10  characters 


Variable  Name 

Size:  6 characters,  maximum 

Input  Data:  Punched  on  80-column  cards 


* The  acronym  for  "Display  Integrated  Software  System,  and  Plotting 
Language,"  developed  and  sold  by  the  Integrated  Software  Systems 
Corp.,  San  Diego,  CA. 
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Output:  135-coluinn  printed  tabulations  and 

off-line  plots 

Library  Mathe- 
matical Functions  : Common  logarithm  and  arc-tangent 
(double  argument) 


3.0  Program  Deck  Setup  and  Card  Preparation 
3.1  Job  Deck  Setup 

The  first  step  in  the  procedure  to  obtain  plots  of  the 

spectra  requires  the  execution  of  the  program, 
ViPKJ?.  Upon  execution,  a printed  output  is  produced;  likewise 
the  plot  information  is  transferred  to  a permanent  file. 

The  following  illustration  shows  the  structure  of  the  card 
deck  setup  for  program  execution. 


lOOOMOOOOOOOOOOOOOOOOOOOOtOOOOOOOOOOOIlOOOOOOOOOOOlIOOOOOOOIIOOOOOOIIOOO 

’ * ^ ‘ M 25  71  ?T  21  ?J  31  31  32  33  34  35  31  3 2 31  35  41  41  42  43  44  45  4(  4 2 41  45  51  51  52  53  54  55  5C  5?  51  55  M II  (7  13  54  15  K 0 H (1  n 

- 1 ^ ^ ^ ^ ^ ^ ^ 1 1 H H 1 1 n 1 1 ] 1 1 1 1 11 1 1 1 1 11 1 1 11 H n n 11 1 1 ] I n n 1 1 1 1 1 1 1 1 1 M 1 1 
2 2 


J333  3333333333333333333333333333333333333333333333333333333333333333 
#444444141444444444444444444444444444^444444444444444444444444444444 
5 5 5 5 5 5 5 5 5 5 5 5 b 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 S 5 5 5 5 5 5 
I 6 B 6 B 6 B 6 8 6 S 8 6 6 B 6 fi  6 6 6 6 6 6 B B B B 6 6 6 6 B 6 B 6 B 8 6 6 6 B 6 6 6 6 6 6 8 6 8 6 6 8 6 6 6 6 6 6 6 6 6 6 6 6 S 6 6 5 
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The  second  and  final  step  in  the  procedure  involves  ex- 
ecution of  either  the  ONLINE  or  the  OFFLINE,  DISSPLA,  post-processor 
plot  program.  In  this  phase,  plot  Information  is  obtained  from  the 
permanent  file  (previously  generated);  then,  plots  are  produced 
either  on-line  or  off-line,  in  this  case,  utilizing  a CALCOMP  plotter. 

The  structure  of  the  deck  setup  is  shown  in  the  following 
illustration. 


0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 (I  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 e 0 0 0 0 0 0 0 0 0 0 

• I ) • s i > > I II II  » n It  IS  i(  II II  IS  II II II II M IS  li  II II  n II  ii  ii  ii  m is  u ii  u is  u ii  <i  u u is  it  ii  ii  ii  si  si  si  si  si  ss  si  si  si  si  ii  ii  ii 

I M I j I n 1 1 1 n 1 1 1 1 1 1 1 n 1 1 1 1 n 1 1 1 1 11 11 1 1 n 1 1 11 11 1 1 1 11  n 1 1 1 1 1 1 1 

22,22222222222222222222222222222222222222222222222222222222222 
3333.333333333333333333333333333333333333333333333333333333333 
4 4 4 4 4 4 . 4 M 4 4 4 4 4 4 4 4 4 4 4 < 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 I 4 4 4 4 4 4 4 
) S 5 5 i 5 S S 5 3 5 S i S S S 5 3 S S J S 5 5 i 3 S 5 5 S i S S 5 5 S 3 3 3 5 5 5 5 5 5 5 S 3 S S J 5 5 5 S i 5 i 5 S 5 S 

t ( 6 6 6 t 6 6 6 8 6 6 6 6 G 6 C e C 6 S ( ( e 6 e 6 6 t 6 6 C ( S 6 6 6 6 E 6 6 6 6 6 6 ( ( E 6 6 6 6 6 6 6 6 6 C 6 6 ( 

1 I I 7 17  7 n 7 7 7 7 1 7 I I 7 7 7 7 n n 7 7 1 7 7 I 7 7 1 7 7 7 7 7 I 1 7 7 7 7 1 1 7 I 1 7 ’ 7 1 7 1 ? m 7 7 

I E 8 8 8 8 8 E 8 g 8 8 8 8 8 8 8 8 8 8 8 8 8 8 E E 8 8 a S 8 8 8 8 8 8 8 8 8 8 E 8 8 8 8 8 8 B 8 S 8 8 8 E E M 8 8 8 8 8 

<1  8 9 9 9 8 ' 9 9 ] 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 J 9 8 9 9 9 9 9 9 8 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 S S 9 

' 7 ^ ^ ^ I < 'I  " <2  11  14  n It  I?  II  IS  ?l  71  77  71  74  7S  7t  77  71  71  M II  17  11  14  IS  It  12  II  IS  41  4l  47  41  44  4S  at  42  Cl  4!  SI  S*  S7  SI  <>4  SS  St  S>  SI  SS  tl  K'  t 
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3.1.1  Input  Data  Deck  Setup 

Program  input  data  is  entered  on  the  cards  shown  in 
the  next  illustration.  Note  that  the  cards  must  be  inserted  in  the 
deck  in  the  indicated  order. 


0 0 0 0 I I 0 0 0 0 0 U b • 0 

41  SI  S)  S4  U W ST  M M H II 


The  Description,  the  Altitude-Mach  Number,  and  the 
Aircraft  Parameter  cards  must  always  be  prepared  and  inserted  in 
the  deck. 


The  Profile  Parameters  and  Special  Values  cards  must 
always  be  inserted.  If  the  values  are  already  stored  in  the  program 
(as  is,  currently,  the  case  for  the  F-4,  F-15,  F-16,  F-111,  and  the 
A-7),  then  a blank  card  must  be  inserted.  Any  profile  parameter  or 
special  value  can  be  changed,  however,  by  entering  the  desired  value 
on  the  normally  blank  card.  This  feature  permits  the  user  to  **write 
over”  the  stored  values  as  the  situation  requires.  If  an  aircraft 
different  from  the  stored  group  is  chosen,  then  a Profile  Parameters 
and  Special  Values  card  must  be  inserted  with  appropriate  entries. 
Note  that  in  either  case,  a card  must  be  inserted,  blank  or  not. 

The  procedural  mechanics  are  more  complex  when 
dealing  with  the  first  and  second  bending  mode  value  cards.  Here, 
the  combination  of  orders  of  proper  card  usage  are  such  that  special 
guidance  must  be  provided  in  the  form  of  a summary  aid  and  a table, 
both  of  which  now  follow. 

3. 1.1.1  Summary  of  Input  Data  Card  Structure 

We  return  to  the  last  illustration  to  sum- 
marize the  rules  of  order  and  procedure  concerning  the  card  struc- 
ture of  the  input  data.  The  summary  also  makes  reference  to  special 
guidance  in  the  form  of  Table  I. 
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Cards 

a,b,  c 

d 


e,f 


Remarks 

These  cards  must  always  be  prepared  and  inserted  in 
the  deck. 

A blank  card  is  normally  inserted  in  the  deck  if  air- 
craft is  of  the  previously  stored  group  (see  3.1.1). 
Stored  values  may  be  written-over  by  inserting  desired 
values  on  the  blank  card.  For  aircraft  not  of  the 
stored  group,  enter  appropriate  values  on  the  blank 
card  (see  Table  I) . 

Both  card  sets  are  normally  omitted  if  the  aircraft 
is  of  the  previously  stored  group;  however,  if  data 
changes  are  required,  see  Table  I. 

The  FINISH  card  must  always  be  inserted  at  the  end 
of  a set  of  data  cards. 
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3.1.2  Card  Preparation  for  Input  Data 

Each  card  example  is  shown  in  proper  sequence, 
selected  and  punched  with  the  input  data  for  the  program.  Included 
are  column  identifications,  associated  nomenclature,  and  explanatory 
references. 


3. 1.2.1  DESCRIPTION  Card 


F-4 

UNLOABED  SKIH  5?5HT!i: 

' 3 5 fi  7 8 'j  \i.  15  i;  P 14 

>5  4-  17  18  :i  24  25  27  28  29  30  35  23  35  35  3’  38  39  40  41  4?  43  41  45  43  4?  O 53  51  52  53  51  5'  55  57  ’.•?  54  f?  Cl  62  0 

II  I ■ ■ 11  !i5|lS|!7|;C  19  |.  |2l|2?|23l24  '.I:  j 27  1 23  | 75  | JO  | 31  | J?  | 3i  | 54 1 !5  [ss  | 3/ | 32  | 19  I 4J  | 4 h?  | 43  fTeil? 

n n n n n n r-  n n n n n nin  n n n n n n n n ~ ^ , 

1 : : 4 5 c 7 8 C ICiH  12  13  H 15  1o  17  18  13  20  21  22  23  24  25  26  27  28  29  20 

1 1 1 1 1 1 1 1 1 ill  1 1 1 1 1 1 1 lll  1 1 1 1 11  1 1 1 


31  32  33  34  33  33  37  33  39  40 

1 11111111 


41  42  43  44  43  <6  47  48  43  52 
1111111111 


0 0 0 0 0 0 0 0 0 O'O  0 0 U . 0 0 (j 


51  52  53  54  55  56  57  53  59  LC 

1111111111 


61  62  63  64  65  CO  67  61 

11111111 


Aircraft  Type 

COL.  10  Aircraft  Type  (center  aircraft  designation  in  10-column 
field  to  obtain  centering  plot  titles) 


Note  that  the  following  aircraft  types  occupy  a specific  columnar 
order  because  certain  of  their  values  (Profile  Parameters  and  Special 
Values;  First  and  Second  Bending  Mode  values)  have  been  previously 
stored  in  the  program. 


4-6 

F-4  ^ 

4-7 

F-15 

4-7 

F-16 

4-8 

F-111 

4-7 

A-7D  J 

Enter  on  card  exactly  as  specified  here. 


This  order  requirement  also  holds  for  any  future  aircraft,  so  stored. 
For  example,  the  A-10  would  occupy  columns  4 through  7. 


Equipment  Description 

COL.  11-30  Name  of  equipment  item  or  location  (center  name  in  20- 
column  field  to  obtain  centering  in  plot  titles) 


Flight  Condition 

COL.  31-35  SANDL,  straight  and  level 


28 


AFFDL-TR-77-101 


* 

COL.  31-32  BT,  buffet-turn  (see  Appendix  D) 

COL.  31-37  TAKEOFF,  takeoff  (see  Appendix  D) 

COL.  31-37  LANDING,  landing  (see  Appendix  D) 

* 

COL.  31-32  TB,  turbulence  (see  Appendix  D) 

*Requires  a straight  and  level  reference  flight  condition  that  must 
be  entered  in  the  Altitude-Mach  Number  card  (see  3. 1.2. 2). 


Plot  Selection 


COL.  41-50  Leave  all  columns  blank  if  only  the  plot  of  the  final 
response  function  is  desired  [G(f),  R(f),  or  A(f)]. 

COL.  41-43  Enter  ALL,  if  plots  of  all  of  the  special,  transfer,  and 
response  functions  are  desired. 


3. 1.2. 2 Altitude-Mach  Number  Card 


000. 

2 3 4 6 7 8 


.77 


n II  VI  n '.4  \'j  IG  1?  1:1  13  2C  21  ?7  23  /<  25  2C  27  21  23  30  31  3?  33  34  25  36  3/  38  39  <0  41  42  43  44  43  46  47  -W  <9505 


• 1 - 1 ' 1 1 ' 1 ' L __i  ■'  1 — i — i — i — i — i — i — i — i — i — i — i — i — i — • — j — i — * — i i — * — • — • — ^ 

0 000000 

1 2 3 4 5 6 7 6 0 10 

1111111111 

oocooocooo 

11  12  13  14  15  16  17  12  19  2C 

1111111111 

ocoooooooo 

21  22  23  ?<  25  76  27  2C  23  30 

1 1 1 1 1 • ^ M V 

0000000000 

31  32  33  34  35  36  37  38  33  4C 

1111111111 

0000000000 

41  42  43  44  45  46  47  40  49  50 

1111111111 

0 0 0 1 
51  52  53  5^ 

1111 

COL.  1-8 
COL.  9-13 
COL.  14-21 
COL.  22-26 
COL.  27-34 
COL.  35-39 
COL.  40-47 
COL.  48-52 
COL.  53-60 


Altitude, 
Mach  no . , 
Altitude, 
Mach  no . , 
Altitude, 
Mach  No. , 
Altitude, 
Mach  no . , 
Altitude, 


H, 

M, 

H, 

M, 

H. 

M, 

H, 

M, 

H, 


feet,  of  1st  altitude-mach  number  combination, 
of  1st  altitude-mach  number  combination, 
feet,  of  2nd  altitude-mach  number  combination, 
of  2nd  altitude-mach  number  combination, 
feet,  of  3rd  altitude-mach  number  combination, 
of  3rd  altitude-mach  number  combination, 
feet,  of  4th  altitude-mach  number  combination, 
of  4th  altitude-mach  number  combination, 
feet,  of  5th  altitude-mach  number  combination. 
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COL.  61-65 

Mach  no.,  M,  of  5th  altitude-mach  number  combination. 

COL.  66-73 

Altitude,  H,  feet  of  6th  altitude-mach  number  combination. 

COL.  74-78 

Mach  no. , M,  of  6th  altitude-mach  number  combination. 

3. 1.2. 3 AIRCRAFT  PARAMETERS  Card 

0000000000  000000000  000000000000  000000  0 0 000000000000000000000030000000 

1 ! 3 I S I I I ) II  III!  II  II  IS  II  nil  I)  !l  II  II  II  II  IS  II  II  II  IS  II  II  II  II  II  IS  II  II  II  IS  II  II  II  II  II  IS  IS  II  II  II  SI  SI  SI  SI  SI  SS  SI  SI  SI  SI  U II  II  II  II  IS  U II  II  IS  II  II  II  II  II  II 

1 1 1 11 1 11 11 1 11 1 1 1 1 1 1 1 1 1 11 11 1 1 11 1 1 1 n 1 1 n 1 1 1 1 n 1 1 1 1 1 1 1 1t  1 1 1 11 1 1 1 1 1 1 1 M 1 1 1 1 ' 

2 2222222222222222222222222222222222222222222222222222222222222222222222  2 

.1  33333333  333333333  33333333?  > '133  33333333333333333333333333333333. 


COL.  1-10 

Aerodynamic  distance,  x„  (feet)  (see  Appendix  B) . 

hi 

COL.  11-20 

Distance  of  equipment  from  skin,  R (inches). 

s 

COL.  21-30 

Equipment  weight,  W (pounds). 

£ 

COL.  31-40 

Nominal  fuselage  diameter,  D ; at  x (inches). 

F E 

COL.  41-50 

Aircraft  skin  thickness,  t (inches). 

Center  Frequency,  of  Transfer  Function,  Y(f) 


If  Category  is  not  IVa,  IVb,  or  Ib* 

COL.  51-60 

Center  frequency  of  specified  category,  f , (Hz) 

(leave  blank  if  unknown).  ^ 

COL.  61-70 

Blank. 

*For  selection  guidance,  see  Table  II.  Also,  note  that  Category  1(b) 
has  a transfer  function  (previously  built  into  the  program)  that  is 
automatically  invoked  when  1(b)  is  selected  (see  Figure  E-l(b)). 
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If  Category  is  IVa  or  IVb* 


COL.  51-60 

COL.  61-70 


COL.  71 


Center  frequency  for  Category  la,  (leave 

blank  if  unknown) . 

Center  frequency,  f (Hz)  for  Category  Ilia,  if  Cate- 
gory  IVa  is  specified;  Category  Illb,  if  Category  IVb 
is  specified  (leave  blank  if  unknown) . 

Skin  material 


A for  aluminum 
T for  titanium 
S for  steel 
M for  magnesium 


TABLE  II 

Recommended  Center  Frequencies  of 

Y(f)  When  f is  Either  Unknown  or  Unspecified 
c 


Category  c 


la 

25 

Hz 

Ila 

43 

Hz 

lib 

40 

Hz 

Ilia 

25 

Hz 

mb 

35 

Hz 

V 

200 

Hz 

*For  selection  guidance,  see  Table  II.  Also,  note  that  Category  1(b) 
has  a transfer  function  (previously  built  into  the  program)  that  is 
automatically  invoked  when  iCb)  is  selected  (see  Figure  E-l(b)). 
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Equipment  Mounting  Category  (see  Appendix  E) 
COL.  72-73  lA  for  Category  la 


IB 

Ib 

2A 

Ila 

2B 

lib 

3A 

Ilia 

3B 

Illb 

4A 

IVa 

4B 

IVb 

5 

V 

6 

VI 

3. 1.2. 4 PROFILE  PARAMETERS  AND  SPECIAL  VALUES  Card* 


2 3 5 6 7 h 1 10  M 17  ' 15  15  i/  -t)  M 21  22  ?4  2S  26  27  28  26  30  31  32  33  3«  55  36  37  33  53  sO  <i  12  Aj  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  6C  61  62  63  H 65  66  17  M H 10  71  7?  75 


r]Tn  I > I 7 roT<lT^f'n^’5|l8ll7|l»|l9|;o|2l|?2ra|?4|28|2<|2^|28[2l|3ohl|i:|33|i4|35h6|5rfir|59|4o|4l|42|43|M|45|48|47|^|49|5o|5l|5?|55|54|s5|^ 


0 00000000 

I 7 3 4 5 E 7 a 9 Kl 

II  n M 11  11 

2222222222 
3 3 333333 


0 0 0 0 0 0 0 C 0 0 0 0 0 0 0 0 0 0 0 0 

11  17  13  M 15  16  17  It  *9  7o|71  27  73  74  75  26  77  71  79  30|31  37  33  34  35  36  37  38  39  4U 
111)111111 


2222222222 

3333333333 


1111111111 

2222222222 

3333333333 


0000000000 
31  37  33  34  35  36  37  38  39  4U 

1 1 M 1 1 M 1 1 

2 2 ? 2 2 2 ? 7 2 2 

3 3 3 


0000000000 
41  42  43  44  45  46  47  48  49  50 
1111111111 

2222222222 

•'  3 3 3 3 3 3 3 


0 0 Q 0 0 0 0 0 0 0 

51  52  53  54  55  56  57  59  59  60 
1111111111 

2222222222 

3333333333 


0 0 0 li  0 0 G 0 0 0 

61  62  63  64  65  66  67  68  69  70 
1111111111 

2222222222 

3333333333 


0 0 n C 0 

71  72  73  74  r 

111' 

2 2 2 2 2 

3 3 3 3 3 


COL.  1-10  First  fuselage  bending  mode,  vertical,  symmetric 
(see  Appendix  B) . 

COL.  11--20  Maximum  of  first  bending  mode  low  frequency  transfer 
function,  I^(f)(dB)  (see  Appendix  C) . 

COL.  21-30  Second  fuselage  bending  mode,  vertical,  symmetric,  f2^(Hz) 


Enter  zero  if  f ^ is  unavailable  (see  Table  I) . 
2n 


COL.  31-40  Maximum  of  second  bending  mode  low  frequency  transfer 

function,  L^(f)^,(dB).  (see  Appendix  C) 

Z M 

COL.  41-50  Maximum  of  special  function,  (see  Appendix  D) . 

COL.  51-60  Distance  to  aircraft  mid-chord  at  wing,  x^^  (feet)  (see 
Appendix  D) . 


*Card  is  normally  blank  unless  specific  changes  are  required  or  un- 
less aircraft  type  is  other  than  F-4,  F-111,  F-15,  F-16,  and  A-7 ; in 
which  case,  the  appropriate  parameters  and  special  values  must  be 
entered  (see  3. 1.1.1). 
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COL.  61-70  Distance  to  main  landing  gear  strut,  or  (feet) 

(see  Appendix  D) . 

COL.  71-80  Multiplication  constant,  K.  Unless  otherwise  specified, 
K=1  (leave  blank  if  straight-and-level  flight  condition 
(SANDL)  is  specified) . 

3. 1.2. 5 FIRST  BENDING  MODE  VALUES  Cards 
Card  1 


COL.  1-2 

No.  of  ordinal 

(dB)  values,  N 

COL.  3-8 

Interval,  Ax, 

along  abscissa 

COL.  9-14 

Value  1,  db 

COL.  15-20 

Value  2,  db 

COL.  75-80 

Value  12,  db 

Card  2 

COL.  1-6 

Value  13,  db 

COL.  7-12 

Value  14 , db 

COL.  73-78 

Value  25,  db 

Card  3 

COL.  1-6 

Value  26,  db 

COL.  7-12 

Value  24 , db 

COL.  73-78 

Value  38,  db 

Card  4 

COL.  1-6 

Value  39,  db 

COL.  7-12 

Value  40,  db 

COL.  73-78 

Value  51,  db 
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The  above  values  of  dB(x),  db(x^),  correspond  to  values  of  downstream 
distance  x,  which  are  uniformly  spaced,  Ax  apart: 

dB(x^)  = db  [(I-l)Ax],  I = 1,  2,  ...  , N 

If  N ^52,  prepare  additional  cards,  as  required,  with  12  values  per 

card,  following  the  format  of  card  2. 

3. 1.2. 6 SECOND  BENDING  MODE  VALUES  Cards 

(Omit  these  cards  if  no  entry  is  made  for 

f2n>- 

Card  1 


COL.  1-2 

No.  of  ordinal 

(db)  values,  n 

COL.  3-8 

Interval,  Ax, 

along  abscissa 

COL.  9-14 

Value  1,  dB 

COL.  15-20 

Value  2,  dB 

COL.  75-80 

Value  12,  dB 

Card  2 

COL.  1-6 

Value  13,  dB 

COL.  7-12 

Value  14,  dB 

COL.  73-78 

Value  25,  dB 

Card  3 

COL.  1-6 

Value  26,  dB 

COL.  7-12 

Value  27,  dB 

COL.  73-78 

Value  38,  dB 

Card  4 

COL. 

1-6 

Value 

39, 

dB 

COL. 

7-12 

Value 

40, 

dB 

COL. 

73-78 

Value 

51, 

dB 
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For  n ^ 52  and  for  an  explanation  of  the  origin  of  the  decibel  values, 
refer  to  the  remarks  made  for  the  first  bending  mode  values. 

3. 1.2. 7 FINISH  Card* 

COL.  1-6  FINISH 

3.1.3  Deck  Setup  Card  Forms  ("Source"  and  "Binary") 

In  the  following  illustrations,  deck  setups  are  shown 
for  execution  of  the  program  in  both  the  source  and  the  binary  card 
form  (Control  Data  Corp.  6600  and  Cyber  74  Computer  System,  using  the 
NOS/BE  operating  system) . 

The  DISSPLA  plot  file  (PLFILE)  is  copied  to  the  per- 
manent file,  VIPRF. 

Both  illustrations  refer  to  notes  that  are  found  at 
the  end  of  3.1.4. 3. 

3. 1.3.1  Source  Card  Form 


laOOMOMMOOOOOOOOOOOOOOOOOOOOOOOOOaOOOOODOOOOOOOIOOOOOOOOOOOOOOOO 

*Must  be  last  card  in  every  set  of  input  data  cards  — cannot  be  omitted. 
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3. 1.3. 2 Binary  Card  Form 


Input  Data 
(cards  can  be 
stacked) 


Binary  Cards 


Operating  System 
Control  Cards 
(NOTE  2) 


/b.-7/'8/9  FNB-gr 


JDE  CARD 


'INISH 


''END  EENniMG  MODF:  VALUE  CARDS 


Ast  eending  mode  value  cards 

r- 1-  • T [ ; i '..I  A i M 


/^RnriLF^'l^lAHETERS--"'LCIAL  VALUEC  CARD 
/AIRCRAFT  PARAMETERS  CARD~ 

/ALTITUDE-HACH  HO.  CARD 

KSCRU 


:RIPTiaU  CARD 
fyBy-k  EHD-OT-RECDRD  CARD 


/ i O ••  •-MX.*  ' 

*RPr'  VIP/f'cAi^ 


ii-i- 


7/8/9  END-DF-RECORD  CARD 

ATALOG^PLFILE’VIPRF. 


Ar  or. 


AE9UEST>PLFILE»*PF. 
/itERARY' DISSPLA, 


/ATTACH’ DISSPlA? ID=Xb54S£l?S H = < NOT  E 1 > , 

AOE  CARD 


0 D 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 B 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

1 2 3 4 & ( 7 I S II  II  12  I]  14  IS  It  W II  IS  21  21  27  23  24  25  26  2 7 21  21  31  31  3 2 3 3 34  3 5 31  3 7 31  3S  41  41  42  43  44  45  4t  47  41  41  51  51  52  53  54  55  51  57  51  5S  U 11  62  63  64  65  66  67  61  61  71  71  72  73  74 

1 1 11  ,11 1 1 1 1 1 1 11  n 1 1 1 1 1 1 1 1 11  11  1 I 1 1 1 11 1 1 1 1 1 1 1 1 11  11  1 1 1 1 1 1 1 1 1 n 1 I I II  1 11  I n 1 n 

22,22222222222222222222222222222222222222222222222222222222222222222222222 
i 3 3 3 , 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
4444444(44444444444444444444444444444^44444444444444444444444444444444414 
5 5 5 5 5 5 5 5 5 5 5 5 b 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 b 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 b 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 •‘i  5 5 5 5 5 5 & 5 5 5 
b 66666666666666666666666666666666666666666666666666666666666666666666(668 


I 111  ni  n 11  ni  n 1 11  n 11  n n 1 111  111  11  n 1 11  n 1 11 11 11 11  'f  111  T 11 11 1 11  n 111  n 11 11 

I 8 8 8 8 8 8 8 8 8 B 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 R 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 

899999  9999999999999999999999999999999999999999999999999999999999999999999 

■ 7 .•  4 5 6 I 9 10  II  12  13  14  15  16  17  II  IS  21  21  22  23  24  25  26  27  21  2S  31  31  32  33  34  35  36  37  31  3S  40  4i  42  43  44  45  46  47  ;|  4S  51  5'  57  5.7  w 55  56  5>  51  5S  60  6*  62  63  64  65  66  67  6”.  tS  7|  II  72  73  '« 
NECC-50ei 
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3.1.4  Plot  Programs  ("On-line”  and  "Off-line") 

In  the  following  illustrations,  deck  setups  are 
shown  for  executing  the  "on-line"  and  "off-line,"  DISSPLA,  post 
processor  plot  programs. 

3.1.4. 1 "On-line"  Plot  Program 

DISSPLA  plots  are  produced  on-line,  on  a 

CALCOMP  plotter. 


yfe/7/8/9  EHD-DF-JDE  CARD 

DRAU=i-Et'IIif 

7/8/9  ENn-OF-RECDRli  CARD 
RETURN, DISSPLA, PLFILE. 

online! 

ATTACH,  PLFILE, 'v'IPRF,CV  = <;NDTE  3>,ID=<NaTE  3>. 

Cl  BRARY, DISSPLA.  ' 

ATTACH, DISSPLA, ID=M8543£1 , SN=<NGTE  1>. 

Joe  card 

I 

OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOI 

I I I < s < > ■ , II  tl  II  II  I,  li  It  1,11  II  n II  II  II  » IS  » I,  II  I,  II  II  II  11  M IS  U 1,  U 11  ,1  II  I!  II  II  IS  II  I,  II  I,  M SI  SI  SI  SI  SS  SI  SI  SI  S,  H 11  II  II  I 

1 1 1 1 , 1 n n n 1 1 1 1 11 1 1 1 1 1 11 n 1 1 1 M 11 11 1 1 M n 1 11 1 1 1 1 11 1 11 1 1 1 1 n 11 
22,222222222222222222222222222222222222222222222222222222222222 
n 3 3 , 3 3 3 3 3 3 3 3 3 3 3 3 j 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 

4444444, 4i444444444444444444444444444<444444444444444444<444444 

4 ( 6 E 8 ( S S 6 S $ t ( ( 6 6 ( ( B C S E C e ( ( E 6 6 6 6 6 6 6 6 6 C S 6 6 ( 6 6 6 6 G 4 b t S 6 6 E 6 6 6 E 6 B B ( S 
111  1 1 n in  1 11  111  in  m n n 1 m n 1 n 1 ni  1 1 1 n 1 1 1 1 1 1 m iji  n m n 
Bia88E8BagBE8E88E88888SSEEBESEBEEEBaE88E888888aBBE8R8E8iiE8888EB 
888999  9999999999999999999999999999999999999999999999999'^ 

' 7 t ' I S <1  l>  12  I]  14  IS  IS  I)  II  11  21  21  22  21  24  2S  2S  11  21  IS  II  II  32  31  34  3S  31  12  31  IS  41  41  42  41  44  4S  <S  42  :|  4S  SI  S'  S2  SI  S4  I 

NCCC-50ei 
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3. 1.4. 2 "Off-line"  Plot  Program 

Final  plot  information  is  copied  to  file 
on  magnetic  tape  (Tape  99).  Then,  this  tape  is  transferred  to  an 
off-line  plotter  system  for  graphical  recording.  However,  before 
any  of  this  can  be  done,  it  is  necessary  to  request  (Computer  Oper- 
ations) the  desired  tape  to  be  assigned  to  Tape  99.  In  the  case 
illustrated  here,  the  tape  number  is  L02391.  Note  that  if  the  job 
deck  is  submitted  at  the  ASD  Computer  Center,  Operations  must  be  so 
instructed  through  submission  of  card  form  ASD-59,  ’^Magnetic  Tape 
Transaction  Request."  On  this  form  the  tape  number  and  associated 
problem  number  is  entered;  whereupon  the  form  is  submitted  together 
with  the  job  deck.  Finally,  subsequent  to  plot  program  execution. 
Operations  must  be  directed  to  mount  the  tape  on  the  off-line  plotter 
through  submission  of  card  form  ASD-227,  "Data  Preparation  Request." 
This  card  must  include  the  tape  and  associated  problem  number  as  well 
as  identification  and  plot  information  obtained  from  the  day  file  of 
the  computer  program  listing. 


'7/P/9  Fn^-nF-jnp  CpRI 


rf/2/3  EH”-DF-PFCnRr  CARD 


FFLIHE. 

/ATTACH , PLF  T LF  5 V I PRF » C V::: HOlt  3 > > I B=  = NOTE  ? > 

/lifrarv^btssplp. 

^ T c H < D I S F - i,  P 5 I B 5 4 3 A 1 » S N = : i 


aCTE  1>. 


ABEL ? TAPE99 • U , ri=H I , L=MVTAPE ? VSN=L ri£39 1 . R I HG . 

CAFr 


0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 G 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 I 0 O 0 0 0 0 0 0 0 0 0 " 

1 : ! 4 s I 1 I > II  iMi  II II  IS  i(  II II II  n II  n n II  IS  It  :i  n n II  ii  ii  si  ii  is  ii  ii  ii  ii  ii  ii  ii  ii  ii  is  ii  ii  ii  ii  si  si  si  si  si  ss  si  si  si  si  h ii  ii  i 

till  1 11 1 n 1 1 1 1 n 11 1 11 1 n 1 1 11 11 1 11 1 11 n 1 1 1 1 1 1 M 1 1 1 n 1 1 1 1 1 n 1 1 1 1 
2 2222222222222222222222222222222222222222222222222222222222222 
4333  33333333333333333333333333333333333333333333333333333333333 

4444444  44444444444444444444444444444444444444444444444444444444 

S S S 3 5 3 3 5 3 5 S 5 i 3 3 5 3 5 5 5 5 5 S 3 J 5 5 S i S 5 5 S 5 5 5 5 S 5 5 5 5 5 5 S 5 3 3 S S i S S S S 5 5 i 5 S 5 5 5 s 
4 (6666G66GGG6G66666G66666GG66666666G6GG6(6CGe6S6666G666G66(SGIS 
n m m n n m 1 n m m m m m m m m m 1 11  m T m T m m n 

I G 8 S 8 8 8 8 8 g 8 8 G 8 8 G 8 8 8 8 8 G 8 S I I a G G 8 S 8 8 8 8 B 8 6 G 8 8 8 G a a 3 8 G 8 8 8 G 8 a G I G S 8 8 G I I 8 

889999  999999999999999999999999999999999999999999999999. 

‘ 7 • < S ’ I S <1  II  12  13  U 15  It  17  II  II  21  21  22  23  24  25  2i  27  21  21  31  31  32  33  34  35  3t  37  31  31  40  41  42  43  44  45  4k  47  :|  41  51  51  52  53  54  55  54  5>  3 
NECC-50ei 
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3. 1.4. 3 Keyboard  Visual  Display 
Keyboard  Commands 


LOG-IN  INFORMATION  (see  ASD  Computer  Center  Inter- 
com  Guide) 

ATTACH , PLFILE , VIPRF , CY = (N0TE3 ) , ID= (NOTE3 ) 

ATTACH, DISSPLA,ID=X654321,SN=(N0TE1) 

XEQ , LIBLOAD=DISSPLA, TEK4010 
DRAW=1-END$ 

LOG-OUT 


NOTES : 


1. 


2. 


3. 


CDC  NOS/BE  USER'S  GUIDE 


SN  = ASD  for  computer  system  A. 

SN  = AFIT  for  computer  system  B. 

Refer  to  ASD  computer  center  handbook, 

(latest  revision). 

” liSn^*^  number  shown  in  dayfile  of  computer 

ID  = Problem  number  under  which  permanent  file  was  catalogued 
(shown  in  dayfile  of  computer  listing) . 
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SECTION  IV 
APPLICATIONS 


1.0  Examples 

To  illustrate  the  applications  of  the  prediction  program,  a 
number  of  fighter  aircraft  are  selected  for  a variety  of  equipment 
locations,  categories,  and  flight  conditions. 

1.1  F-4  (skin) 

The  inputs  (card  entries)  are: 


SKIN 

RESPONSE 

SANDL 

H 

= 

2000.0 

ALTITUDE  (FT.) 

M 

= 

.77 

MACH  NO. 

32.60 

DISTANCE  FROM  THE  LEADING  EDGE  OF 

THE  FUSELAGE  AERODYNAMIC  PROFILE  (FT.) 

''s 

= 

0.00 

DISTANCE  FROM  SKIN  (IN.) 

= 

0.00 

EQUIPMENT  WEIGHT  (LBS.) 

T 

= 

.0400 

THICKNESS  OF  SKIN  MATERIAL  (IN.) 

materiaE 

= 

54.0 

DIAMETER  OF  FUSELAGE  (IN.) 

= 

ALUMINUM 

TYPE  SKIN  MATERIAL 

CATEGORY 

IB 

EQUIPMENT  MOUNTING  CATEGORY 

The 

input , 

as  it  is 

entered  on  the  input  data  cards,  is 

shown  in  Figure  7.  (Each  of  the  five  examples  in  this  section  are 
accompanied  by  their  respective  array  of  input  data  cards.)  Note 
that  five  cards  per  array  are  shown  — in  agreement  with  the  guide- 
lines provided  by  Table  I and  3.1.1. 

As  an  illustration,  this  example  is  rather  special.  It  is 
interesting  because  the  results  describes  the  response  of  the  unloaded 
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skin  (Rg  and  = 0)  for  straight  and  level  (SANDL)  flight.  See 
Figures  8 and  9.  The  low  frequency  hump  in  Figure  9 represents  the 
vibration  contributions  of  the  first  and  second  fuselage  bending 
modes. 

1.2  F-16  (FCC) 

Here,  the  prediction  program  describes  the  vibration  input 

to  the  Flight  Control  Computer  (FCC)  of  the  F-16  (Figures  11  and 

12)  during  straight  and  level  flight.  This  example  introduces  the 

equipment  configuration  in  which  R and  W are  greater  than  zero  — 

b E 

as  will  be  the  case  from  here  on  out. 


F-16 

FCC 

SANDL 

H 

= 

13000.0 

ALTITUDE  (FT.) 

M 

= 

1.55 

MACH  NO. 

— 

7.50 

DISTANCE  FROM  THE  LEADING  EDGE  OF  THE 
FUSELAGE  AERODYNAMIC  PROFILE  (FT.) 

= 

3.00 

DISTANCE  FROM  SKIN  (IN.) 

= 

31.20 

EQUIPMENT  WEIGHT  (LBS.) 

T 

= 

.0360 

THICKNESS  OF  SKIN  MATERIAL  (IN.) 

materia! 

= 

40.0 

DIAMETER  OF  FUSELAGE  (IN.) 

= 

ALUMINUM 

TYPE  SKIN  MATERIAL 

CATEGORY 

= 

IB 

EQUIPMENT  MOUNTING  CATEGORY 

1.3  F-4  (Instr.  Panel,  non-isolated) 

This  prediction  problem  describes  the  vibration  spectrum 
of  the  radar  altimeter  indicator  (RAI)  located  on  the  left  side  of 
the  instrument  panel,  aft  cockpit  (Figures  14  and  15).  The  instru- 
ment panel  is  hard  mounted  (non-isolated).  Flight  conditions  are 
straight  and  level  (SANDL) . 
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Figure  8.  Location  of  Skin  Response,  RF-4C 
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Figure  9.  Predicted  Response  of  Skin,  RF-4C 
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I 

pti 
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Figure  10.  Input  Data  Cards,  FCC 
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Figure  12.  Predicted  Vibration  Input  to  FCC,  F-16 


47 


9 1C  n 1?  t3  M 15  tb  17  If  19  20  21  22  23  2^  25  2S  27  22  23  30  3l  32  3J  34  35  3E  37  30  39  40  4;  42  y 4-1  « <5  1?  48  y 50  51  52  53  54  55  55  57  53  59  6D  I’  C?  G3  b4  C5  56  6?  63  E 9 70  71  72  73  74  75  78  77 


AFFDL-TR-77-101 


48 


Figure  13.  Input  Data  Cards,  RAI,  RF-4C 
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Figure  14.  Location  of  RAI,  Aft  Instrument  Panel,  RF-4C 
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Figure  15.  Predicted  Vibration  Input  to  RAI,  Instrument  Panel, 
Non-Isolated,  RF-4C 
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F-4 


RAI 

2000.0 


.71 

18.20 


R = 2.00 

Wp  = 2.00 

T = .0400 

MATERIAL  = ALUMINUM 
CATEGORY  = 2B 

Dp  = 57.0 


SANDL 

ALTITUDE  (FT.) 

MACH  NO. 

DISTANCE  FROM  THE  LEADING  EDGE  OF  THE 
FUSELAGE  AERODYNAMIC  PROFILE  (FT.) 
DISTANCE  FROM  SKIN  (IN.) 

EQUIPMENT  WEIGHT  (LBS.) 

THICKNESS  OF  SKIN  MATERIAL  (IN.) 

TYPE  SKIN  MATERIAL 
EQUIPMENT  MOUNTING  CATEGORY 
DIAMETER  OF  FUSELAGE  (IN.) 


All  hard  mounted  secondary  structures,  of  which  non-isolated 
instrument  panels  are  a member,  involve  decision  criteria  concerning 
the  location  of  the  equipment  item  along  the  mode  shape  of  the  in- 
strument panel  (see  para  1.2  of  Appendix  E and  Figure  E-6).  As  it 
turns  out  e ^ X/4;  so  R(f)  has  been  selected,  plotted  and  the  results 
are  shown  in  Figure  15.  Note  that  if  the  user  does  not  have  a suit- 
able estimate  for  the  first  bending  mode  frequency  of  the  panel 
(fciib)  then  he  may  refer  to  the  recommended  values  in  Table  II, 
Section  III. 

1.4  A-7D  (Instr.  Panel,  isolated) 

The  A-7D  features  an  isolated  instrtiment  panel  (isolator 
natural  frequency,  is  45  Hz).  This  problem  involves  a Radio 

Frequency  Indicator  (RFI)  mounted  on  the  instrument  panel  (Figures 
17  and  18) . We  wish  to  predict  the  indicator  response  during  SANDL 
flight. 


The  inputs  are: 
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Figure  16.  Input  Data  Cards,  RFI,  A-7D 
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A- 

■7D 

RFI 

SANDL 

H 

= 

10000.0 

ALTITUDE  (FT.) 

M 

= 

.80 

MACH  NO. 

= 

4.80 

DISTANCE  FROM  THE  LEADING  EDGE  OF  THE 

FUSELAGE  AERODYNAMIC  PROFILE  (FT.) 

^s 

= 

1.50 

DISTANCE  FROM  SKIN  (IN.) 

= 

1.20 

EQUIPMENT  WEIGHT  (LBS.) 

T 

= 

.0400 

THICKNESS  OF  SKIN  MATERIAL  (IN.) 

MATERIAL 

= 

ALUMINUM 

TYPE  SKIN  MATERIAL 

CATEGORY 

= 

2A 

EQUIPMENT  MOUNTING  CATEGORY 

^F 

46.0 

DIAMETER  OF  FUSELAGE  (IN.) 

predicted 

response  of 

the  instrument  panel,  or  the  input  to  i 

RFI,  is  shown  in  Figure  18. 

1.5  F-15  (Black  Box  Input,  Shock  Mounted) 

A black  box  assembly,  consisting  of  the  TACAN  and  the  APX-76, 
is  located  in  the  nose  region  of  the  F-15  (Figure  20) . The  assembly 
is  shock  mounted.  The  isolator  natural  frequency  is  25  Hz.  We  wish 
to  predict  the  vibration  input  to  the  shock  mounts  for  the  SANDL  case 


as  well  as  for  the  buffet  turn  (BT) . 


The  inputs  are; 


F-15 

H = 

M = 

X = 
e 


MATERIAL  = 
CATEGORY  = 


APX-76  BT 

25000.0  ALTITUDE  (FT.) 

.90  MACH  NO. 

10. I DISTANCE  FROM  THE  LEADING  EDGE  OF  THE 
FUSELAGE  AERODYNAMIC  PROFILE  (FT.) 

5.00  DISTANCE  FROM  SKIN  (IN.) 

54.00  EQUIPMENT  WEIGHT  (LBS.) 

.0400  THICKNESS  OF  SKIN  MATERIAL  (IN.) 
ALUMINUM  TYPE  SKIN  MATERIAL 

IB  EQUIPMENT  MOUNTING  CATEGORY 

40.0  DIAMETER  OF  FUSELAGE  (IN.) 


The  entry  condition  for  buffet  turn  is  M=0.90  and  H=25,000 
ft.  Note  that  the  entry  condition,  or  reference  straight  and  level. 
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Figure  18.  Predicted  Vibration  Input  ot  RFI,  Instrument  Panel,  Isolated, 
A-7D 
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Figure  19.  Input  Data  Cards,  APX-76,  F-15 
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is  automatically  plotted  in  the  program  along  with  the  buffet  turn 
curve  (see  para  3. 1.2.1  of  Section  III).  The  resultant  plots  are 
shown  as  Figures  21  and  22.  The  impressive  rise  of  the  vibration 
level  in  the  region  of  35  Hz  during  buffet  turn  reminds  us  that 
severe  spectral  levels,  though  brief  in  duration,  can  be  encountered 
and  we  add  here,  that  they  often  go  unnoticed  by  the  vibration  en- 
gineer. 

1.6  F-15  (Black  Box  Response,  Shock  Mounted) 

We  repeat  para  1.5,  except  now  we  wish  to  predict  the 
response  of  the  assembly  mounted  on  the  isolator.  If  we  change 
category  1(b)  to  1(a)  and  enter  the  isolator  natural  frequency  as 
f^^^=25Hz,  we  may  then  add  the  remaining  inputs  of  para  1.5  to  com- 
plete the  program  (Figure  23) . The  equipment  response  for  entry 
(reference)  SANDL  and,  finally,  for  BT  is  shown  as  Figures  24  and 
25.  Here,  we  see  the  equipment  response  — an  excitation  magnified 
significantly  by  the  isolator  transfer  function. 
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Figure  21.  Predicted  Input  to  APX-76,  Isolated,  F-15,  for  SANDL  Flight 
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Figure  22.  Predicted  Input  to  APX-76,  Isolated,  F-15,  for  Buffet  Turn 
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Figure  23.  Input  Data  Cards,  APX-76  Response,  F-15 
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Figure  24.  Predicted  Response  of  APX-76,  F-15,  for  SANDL  Flight 
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Figure  25.  Predicted  Response  of  APX-76,  F-15  for  Buffet  Turn 
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SECTION  V 
REVIEW 


1.0  Discussion 

This  work  concludes  with  a discussion  that  briefly  reviews  the 
general  philosophy  of  the  prediction  method,  summarizes  results  thus 
far  obtained,  underlines  some  remnant  problem  areas  or  shortcomings, 
and  finally,  terminates  with  recommendations  for  future  studies. 
Sections  II  and  III  show  that,  in  the  main,  this  prediction  method 
employs  the  cross  product  of  input  and  tranfer  functions  both  of 
which  are  utilized  as  variants  of  a basic  equation  whose  curve  is  fun 
damentally  sigmoidal  in  form  and  plastic  in  temperament.  Indeed, 
in  this  approach  to  vibration  prediction,  functions  of  a consummate 
virtuosity  are  all  but  mandatory  — and  thus  far,  the  flex  function, 
thought  often  distended  in  the  application,  has  yet  to  be  breached 
in  the  trial.  It  will  remain  for  future  applications  (probably  in- 
volving other  special  flight  conditions  and  physical  configurations) 
to  determine  the  ultimate  limits  of  its  adaptability;  in  the  meantime 
it  seems  to  be  working  reasonably  well. 

But  this  prediction  approach  is  not  solely  preoccupied  with  the 
manipulation  of  an  abstruse  function.  The  process  is  also  shaped 
and  otherwise  supplemented  with  large  doses  of  empiricism,  chiefly 
in  the  form  of  vibration  data  which  is  looped  back  into  the  various 
functions  (most  notably,  the  special  functions)  to  provide  corrective 
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information  resulting  in  readjustments  of  the  function  parameters. 

In  general,  the  more  relevant,  the  more  detailed,  and  the  more  per- 
ceptive the  data  choice;  the  more  accurate  the  results.  We  go  fur- 
ther: the  more  details  that  are  known  about  the  aircraft  skin,  of 

the  equipment  mounting  method,  of  the  equipment  size,  shape,  function, 
and  weight,  of  the  class  of  the  equipment  support  structure  used,  of 
the  equipment  proximity  to  special  and  significant  physical  config- 
urations (guns,  flaps,  speed  brakes,  landing  gear,  refueling  doors, 
cavities)  — the  more  that  is  known  of  these  specifics,  the  more 
readily  transfer  and  special  functions  can  be  shaped,  sized,  and 
integrated  into  the  prediction  format  to  further  the  advance  of  a 
more  realistic  prediction  end. 

With  these  guidelines  in  mind,  it  is  useful  to  review  some 
deficient  areas  of  the  vibration  data  process  and  reflect  on  its 
consequences  concerning  the  results  of  this  prediction  technique. 

1.1  Instrument  Panels 

Extant  vibration  data  covering  instrument  panels  is  rel- 
atively scarce,  especially  data  from  pickups  that  measure  the  input- 
output  properties  of  the  panel  or  data  from  response  pickups  that  are 
located  in  the  central  one-third  of  the  panel  (central  one-third  of 
the  half  panel,  if  the  panel  is  tied  down  at  the  center).  Data  in- 
dicating the  panel  weight,  the  mounting  method  (isolated  or  non-iso- 
lated)  and  the  isolation  frequency,  if  isolated,  is  nearly  always 
unspecified  and  must  be  ascertained  separately  — often  at  considerable 
difficulty.  From  these  observations,  it  is  easy  to  deduce  that  the 
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instrument  panel  transfer  functions  for  the  isolated  and  non- 
isolated case  (Categories  Ila  and  lib)  will,  in  all  probability,  be 
adjusted  as  additional  suitable  data  becomes  available.  Finally, 
it  is  worth  noting  that  instrument  panel  vibration,  because  of  the 
severe  levels,  should  be  recorded,  wherever  possible,  during  violent 
flight  phases  such  as  buffet  turn;  especially  for  those  aircraft 
whose  cockpits  are  located  near  to,  or  over  the  wing  areas. 

1.2  Skin 

Pickups  on  the  skin  are,  sometimes,  not  skin  mounted  — 
being  mounted  on  adjacent  frames,  for  example,  and  if  they  are  placed 
at  the  central  panel  area,  they  are  often  of  a size  (mass)  to  roll 
off  the  high  frequencies  and  so  one  must  apply  adjustments  to  the 
data  in  order  to  derive  the  transfer  function  (see  Ref.  8).  Despite 
these  problems,  the  skin  transfer  function  derived  and  used  for  this 
prediction  process  seems  to  be  reasonably  accurate  for  curved  aluminum 
skin  surfaces,  forty  thousandths  of  an  inch  thick.  Suitable  measure- 
ments on  other  type  aircraft  surfaces  (including  the  wings)  should 
be  obtained,  however,  and  much  useful  transfer  function  information 
can  be  developed  for  surfaces  of  greater  thicknesses,  and  for  that 
matter,  surfaces  of  different  geometry  and  composition.  Boundary 
layer  microphones  remain  a problem.  They  are  usually  massy;  and,  if 
anything,  they  (rather  than  accelerometers)  are  the  ones  to  be  moved 
over  near  the  frame  to  reduce  mass  loading.  Boundary  layer  microphone 
data  are  rarely  accompanied  with  information  indicating  whether  or 
not  the  data  has  been  corrected  for  the  boundary  layer  thickness  and 
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the  microphone  effective  diameter.  The  diameter  is  almost  never  in- 
dicated; but  it  should  be.  Sufficient  spatial  information  (fuselage 
station,  for  example)  should  always  be  included  with  the  microphone 
data  in  order  that  the  down  stream  distance  can  be  determined. 

1.3  Buffet  Turn 

Vibration  data  covering  the  buffet  turn  (BT)  maneuver  is 
also  rather  hard  to  come  by,  thus  the  special  function  [S(f)]  derived 
for  the  BT  maneuver  should  be  viewed  as  tentative;  subject  to  future 
adjustments,  if  and  when  new  data  indicates.  The  general  spectral 
characteristics  occasioned  by  this  maneuver,  it  is  interesting  to 
note,  are  similar  to  those  generated  during  pullups;  and  if  we  are 
careful  not  to  push  the  comparison  too  far,  they  are  rather  similar 
to  such  flight  phases  as  lowered  speed  brakes,  flaps,  landing  gears, 
and  for  that  matter,  open  refueling  doors  and  cavities.  Processed 
data  and  extant  vibration  records  should  be  sought  and  examined  when- 
ever opportunities  arise  to  obtain  valuable  parametric  information 
about  these  flight  phases.  Because  quite  apart  from  their  being 
valuable  contributions  to  the  prediction  process,  the  sudden  bloom 
of  their  spectral  peaks  (as  much  as  25  dB!)  provides  instructive 
warning  to  equipment  vibration  and  reliability  engineers  that  straight 
and  level  vibration  is  only  a part  of  the  environmental  history. 

1.4  Forward  Looking  Radar  Zones 

The  high  frequency  vibration  fields  of  forward  looking 
radar  zones  tends  to  be  appreciably  higher  than  the  norm.  The 
reasons  for  this  seem  to  be  due  to  the  relatively  empty  air  space 
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provided  by  the  radome  in  combination  with  the  low  internal  damping 
of  the  radome  cover.  Without  the  mass  loading  and  lossy  damping 
attenuations  provided  by  the  usual  dense  equipment  packaging,  this 
area,  not  surprisingly,  will  exhibit  vibration  levels  (above  150  Hz) 
in  excess  of  6 to  10  dB  above  that  of  predicted  levels.  Because  of 
this,  ^(f)  ^nd  have  been  adjusted  (in  the  program)  to  cover 

applications  for  equipment  attached  to  forward  looking  radar  bulk- 
heads. Future  additional  data  may  indicate  that  further  adjustments 
and  improvements  are  desirable. 

1.5  Sinusoidals 

Sinusoidal-like  vibration  is  present  in  various  regions 
of  the  aircraft.  It  is  found  in  the  presence  of  blowers,  pumps,  gen- 
erators, refrigeration  units;  and,  most  conspicuously,  it  is  seen  as 
one  approaches  the  engine  compartments.  Here  the  vibration  content 
may  be  fairly  described  as  consisting  of  predominant  sinusoids, 
superposed  on  a subordinate,  random  background.  There  is  no  provision 
in  this  method  for  this  class  of  vibration;  there  should  be. 

1.6  Determining 

Normally,  if  the  equipment  is  located  on  primary  structure, 

R is  chosen  as  the  nearest  distance  from  the  aircraft  skin  to  the 
s 

equipment  attachment  point.  Although  this  criteria  may  be  modified 
as  the  method  is  applied  more  and  more,  the  interpretation  stated 
appears  to  be  reasonably  workable.  However,  its  application  to 
equipments  attached  to  shelves  and  beams  (secondary  structure)  is 
not  so  certain.  At  present,  the  author  has  chosen  the  nearest  dis- 
tance from  the  skin  to  the  place  (point)  where  the  member  attaches 
to  the  primary  structure. 
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This  criteria,  too,  could  change  in  the  future  if  repeated 
applications  suggest. 

1.7  Future  Work  Areas 

The  prediction  method  and  its  associated  computer  program 
may  be  readily  extended  to  cover  vehicle  locations  and  in-service 
operations  not  covered  in  this  report.  The  following  flight  con- 
ditions and  configurations  are  considered  t©  be  sufficiently  important 
from  the  vibration  viewpoint  to  warrant  future  considerations,  and 
are  listed  for  review. 

a.  Speed  brakes,  pullups,  flaps,  landing  gears,  and  open 
refueling  door  operations. 

b.  Gunfire. 

c.  Vertical  fin  vibration  prediction. 

d.  Wing  locations;  including  missiles  and  their 

launchers . 

e.  Cavities  (ports  and  open  weapons  bay). 

f.  Stores  and  pylons. 
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APPENDIX  A 

AERODYNAMIC  PROPERTIES 


1.0  Equations 

The  properties  of  P(f)  are  determined  from  the  following  equations 
and  procedures: 


m 


(.007)V6b 

(1+.14M^)^U 


(A-1) 


f . = .61  U/6, 
o b 


(A-2) 


6o  (P/Po) 


6 

o 


0. 37xRe 


-1/5 


X 


1 + 


6.9  X 10 


(A-3) 


(A-4) 


where : 

P^(f)  = max  value  of  P(f)  (PSF^/Hz) 

2 

q = dynamic  pressure,  p U /2  (PSF) 

6^  = boundary  layer  thickness  (ft) 

M = Mach  number 

U = free  stream  velocity  (ft/sec) 

= characteristic,  or  locator  frequency  of  the  flex 
function  at  the  6 dB  down  point  (Hz) 

6^  = boundary  layer  thickness  at  zero  altitude  (ft) 

p = mean  density  of  air  at  flight  altitude  (slug/ft^) 

O 

= mean  density  of  air  at  zero  altitude  (slug/ft  ) 
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X = distance  downstream  from  the  leading  edge  of  the 
aerodynamic  profile  to  the  equipment  location  (ft) 

Re^  = U x/v  = Reynolds  number  at  distance  x 

2 

V = kinematic  viscosity  (ft  /sec) 

With  the  mach  number  and  altitude  given  for  straight  and  level 
flight  (SANDL)  the  boundary  layer  parameters  Pj^Cf)  and  f^  are  then 
determined.  A graph  (Figure  A-1)  is  used  to  obtain  3".  These  three 
parameters,  assigned  to  the  flex  function  of  Figure  6 of  the  main 
text,  completely  defines  P(f).  To  obtain  P(f),  in  dB,  refer  to  the 
graph  shown  in  Figure  A-2.  A typical  example  of  a boundary  layer 
pressure  spectral  density  curve  (P(f)  as  a function  of  frequency) 
is  shown  in  Figure  A-3. 
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Figure  A-1.  The  slope  Factor,  3^,  as  a Function  of 
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Figure  A-2.  Conversion  Chart  (dB  as  a Function  of  P(f)) 
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PREDICTED  PRESSURE  SPECTRAL  DENSITY-P(f) 
F-4  NRV.COMP.+SIG.CONV. 


Figure  A-3.  Example  of  P(f)  as  a Function  of  Frequency 


75 


AFFDL-TR-77-101 


APPENDIX  B 

AIRCRAFT  MODE  SHAPES  (FUSELAGE) 


1.0  Terminology 

The  fuselage  bending  mode  shapes  are  identified  by  the  follow- 
ing symbolism:  f^  = mode  frequency  (Hz) 

0 (x)  = normalized  mode  shape 
n 

FBBVS  = first  body  bending,  vertical,  symmetric 
SBBVS  = second  body  bending,  vertical,  symmetric 
X = aerodynamic  distance  downstream  (inches) 

L = maximum  value  of  x (inches) 

F.S.  = aircraft  fuselage  station  (inches) 

2.0  Modal  Shapes 

Each  deflection  curve  has  been  squared  and  normalized  at  the 
forward  fuselage  location  corresponding  to  x=0.  For  some  aircraft, 

X is  approximately  the  same  as  the  fuselage  station;  for  others,  it 
is  not.  Immediately  following  the  two  graphs  of  the  first  and  sec- 
ond bending  modes  is  a sideview  of  each  aircraft  that  identifies  the 
X and  L parameters.  Also  included  is  a notation  relating  the  x=0 
coordinate  to  that  of  the  aircraft  fuselage  station. 

3.0  Derivation  of  Modal  Properties 

For  fighter  aircraft  types  not  included  in  this  Appendix,  it 
will  be  necessary,  as  stated  in  Section  III,  to  obtain  the  required 
modal  properties  and  enter  them  into  the  program  deck  before  the 
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prediction  scheme  can  be  utilized.  The  required  modal  shapes  and 
frequencies  are  usually  obtained  from  data  abstracted  from*  the  air- 
craft ground  vibration  test  report  (GVT  Report).  The  determination 
of  L^(f)  requires  other  strategems.  In  the  absence  of  vibration 
data,  I^(f)  must  be  estimated.  The  procedure  for  this  step  is  found 
in  Reference  8 and  is  here  repeated. 


L^(f)  = A +20  log  (L/B)  +40  log  (fj^/C) 
where: 

I^(f)  = property  to  be  determined 

A = for  a known,  similar  fighter  (dB) 

L = length  of  the  new  aircraft  (inches) 

B = length  of  a known,  similar  aircraft  (inches) 

f = frequency,  FBBVS,  of  the  new  aircraft  (Hz) 
n 

C = frequency,  FBBVS,  of  a known,  similar  aircraft  (Hz) 

The  maximum  value  of  the  low  frequency  transfer  function, 
estimated  using  the  following  relationship. 


(B-1) 


where  adequate  vibration  data  is  available  more  desirable  results 
may  be  achieved  by  noting  G(f)  (during  SANDL  flight)  and,  through 
the  use  of  equation  14  (Section  II),  solving  for  I^(f)- 


(B-2) 


P(f)  I<}.^(x)L^Cf)]  = G(f) 


and. 


(B-3) 


T (f)  = 

P(f)<f.j^(x) 
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Note  that  this  procedure  requires  that  the  first  bending  mode  shape 
be  determined.  Also,  best  results  are  obtained  if  one  selects  G(f) 
proximate  to  x=0  where  the  mode  response  is  large  and  usually  con- 
spicuous. L2(f)j^  may  be  determined  by  the  response  of  the  second 
bending  mode  G(f),  relative  to  the  first  bending  mode  value. 
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Figure  B-1.  Mode  Shape  (FBBVS)  of  the  F-16 
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Figure  B-2.  Mode  Shape  (SBBVS)  of  the  F-16 
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Figure  B-4.  Mode  Shape  (FBBVS)  of  the  F-15 
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Figure  B-5.  Mode  Shape  (SBBVS)  of  the  F-15 
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Figure  B-7.  Mode  Shape  (FBBVS)  of  the  F-111 
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Figure  B-9.  Mode  Shape  (FBBVS)  of  the  RF-4C 
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Figure  B-10.  Mode  Shape  (SBBVS)  of  the  RF-4C 
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Figure  B-12.  Mode  Shape  (FBBVS)  of  the  A-7D 
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Figure  B-13.  Mode  Shape  (SBBVS)  of  the  A-7D 
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APPENDIX  C 


TRANSFER  FUNCTIONS  — 

LOW,  MEDIUM,  AND  HIGH  FREQUENCY 


The  following  comments  offer  supplementary  information  to  that 
contained  in  the  parameter  blocks  of  the  three  transfer  functions. 
Most  of  the  topics  discussed  have  to  do  with  operations  that  are 
either  stored  or  computationally  integrated  into  the  computer  pro- 
gram format. 

1.0  Low  Frequency  Transfer  Function,  L(f) 

Note  that  when  the  second  mode  is  specified  the  first  bending 

mode  transfer  function  changes  as  follows:  x’  becomes  0.7,  6’  is 

changed  to  0.23  and  f assumes  1.54f  . The  second  bending  mode 
° on 

transfer  function  following  parameters; 


e"  = 0.2 


B = 0.2 


x"  ==  0.555 


a"  = 1.8 


a = 1.0 


2.0  Medium  Frequency  Transfer  Function,  MCf) 

The  maximum  value  of  M(f ) , which  is  M (f ) , is  reduced  by  AM  (f) 

m m 

as  R approaches  the  skin;  that  is,  as  R approaches  zero.  This 
s s 

feature,  stored  in  the  program,  reflects  the  fact  that  as  the  equip- 
ment location  moves  outwardly  toward  the  region  near  the  skin  the 
medium  frequency  vibration  content  begins  to  drop  out. 

Some  fighter  aircraft  feature  large  internal  panels,  the  nose 

avionics  bay  of  the  F-111  for  example;  and  to  allow  for  this  spectral 
downshift,  L(f)  is  translated  down  frequency  by  approximately  50  Hz. 
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3.0  High  Frequency  Transfer  Function,  H(f) 

Figure  C-3(b),  among  other  things,  shows  that,  contrary  to  the 
behavior  of  \(f)  increases  as  the  aircraft  skin  is  approached. 

4.0  Special  Parametric  Relationships 

The  first  and  second  bending  modes  exhibit  a peaked  character- 
istic at  their  mode  frequencies.  Whenever  this  happens,  that  is, 
whenever  the  low  and  high  frequency  rolloff  segment  of  the  flex 

function  peak  at  the  same  frequency,  say  f , then  f and  f ''  may 

n o o ^ 

be  defined  in  terms  of  f^.  This  statement  is  best  demonstrated  by 

use  of  the  following  sylloge. 

Always,  xf  = f and  x^f  f ^ 
ox  ox 

where;  f^  ==  the  frequency  at  x 
and;  f^^  = the  frequency  at  x'^ 

Thus,  X - f /f  and  x*"  = f ^/f  ^ 

Now,  for  the  peaking  case  in  which  f = f = f it  follows 

X n X 

that 


And  so,  f = f /x  and  f = f /x" 
on  on 

As  observed  earlier,  the  peaking  form  of  the  flex  function  appears 
for  bending  mode  applications;  it  also  appears  in  the  description 
of  the  medium  frequency  transfer  function,  M(f)  — only  to  reappear 
once  again  as  the  limiting  case  for  (f)  when  Rg  and  Wg  are 
assigned  large  values. 
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Figure  C-1.  Low  Frequency  Transfer  Function,  L(f),  for  Fighter  Aircraft 
Fuselage 
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TABLE  C-1 

PARAMETRIC  VALUES  FOR  FIRST  AND  SECOND  BENDING  MODES* 
(AIRCRAFT  FUSELAGE) 

First  Bending  Mode 


Aircraft 

Type 

m i 

(dB) 

f 

n 

(Hz) 

RF-4C 

-122 

14.3 

F-16 

-131 

12.9 

F-111 

-134 

8.5 

A-7D 

-129 

15.2 

F-15 

-127 

8.5 

Second 

Bending  Mode 

Aircraft 

Type 

(dB) 

f2n 

(Hz) 

RF-4C 

-129 

19.0 

F-16 

-133 

32.5 

F-111 

— 

— 

A-7D 

-140 

23.0 

F-15 

-131 

27.8 

*See  Appendix  B 
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Figure  C-2a. 


Medium  Frequency  Transfer  Function,  M(f),  for  Fighter 
Aircraft 
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Figure  C-3a. 


High  Frequency  Transfer  Function,  H(f),  for  Fighter  Aircraft 
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o 
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Rg  “ Inches 

Figure  C-3b.  Frequency  and  Amplitude  Attenuation  of  H (f)  as  a Function 
of  R 
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EQUIPMENT  WEIGHT, W^-  lbs 


Figure  C-3c. 


Attenuation  of  H (f)  as  a Function  of  Equipment  Weight 
m 
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Figure  C-3d.  Surface  Weight  Density  for  Aircraft  Materials  and  Their 
Thicknesses 
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SURFACE  WEIGHT  DENSITY  DFICREMENT 
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Figure  C-3e.  Attenuation  of  H^(f)  as  a Function  Surface  Weight  Density 
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APPENDIX  D 
SPECIAL  FUNCTIONS 

The  purpose  of  the  special  functions  is  to  provide  an  appro- 
priate function  which,  after  having  operated  on  P(f),  results  in 
a specific  input  to  the  transfer  function  elements  that,  in  turn, 
predict  the  vibration  input  spectra  of  aircraft  equipments  during 
flight  conditions  that  deviate  from  the  smooth,  straight  and  level 
norm.  Such  flight  phases  as  buffet  turn,  pullups,  takeoff,  landing, 
rough  air  turbulence,  proximity  to  open  speed  brakes  (flaps),  re- 
fueling doors,  chin  effects,  including  open  weapons  bay  cavitations 
all  of  these  conditions  invoke  special  functions,  a limited  number 
of  which  are  described  in  Figures  D-2  through  D-4. 

1.0  Available  Functions 

Four  functions  presently  incorporated  into  this  Appendix 
describe  the  following  flight  phases:  buffet  turn  (BT) , takeoff  (T) 
landing  (L) , low  frequency  atmospheric  turbulence  (TB) . Several  of 
the  special  functions  involve  a series  of  distance  parameters  listed 
in  Table  D-1  and  illustrated  in  Figure  D-1. 

1,1  Buffet  Turn 

This  excitation  results  from  tight,  high  g turns  that 
appear  only  infrequently  in  the  fighter  mission  profile.  The  re- 
sultant levels,  however,  are  sufficiently  severe  (see  Figure  D-2) 
to  warrant  inclusion.  Note  that  excitations  arising  from  pullups, 
speed  brakes,  flaps,  landing  gears,  and  open  refueling  doors  belong 
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Dovmstream 

Functions 

Aircraft 
F-4 
F-111 
F-16 
F-5 
A-7D 
F-15 


*in  feet 


TABLE  D-I 

* 

Distance  (x)  for  Special 


S^(f)  and 

s^Cf) 

^BT 

32.3 

35.3 

35.3 

38.1 

47.7 

47.7 

27.1 

29.5 

29.5 

27.7 

28.3 

28.3 

20.5 

25.4 

25.4 

39.1 

40.2 

40.2 
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Figure  D-1.  Location  on  Aircraft  of  x 
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in  this  family  of  special  functions.  They  have  not,  as  yet,  been 
synthesized  for  the  current  computer  program.  The  pullup  phase 
(PU) , be  it  noted,  is,  in  its  main  characteristics,  sufficiently 
close  to  that  of  the  BT  phase  to  allow  temporary  substitution. 

1.2  Takeoff 

S^(f)  is  derived  from  F-4  data  and  is  referenced  to  that 
aircraft  at  the  straight  and  level  flight  conditions  noted  in  Figure 
D-4.  Although  this  approach  may  be  suitable  as  an  approximation 

4 

for  most  predicted  results,  it  is  prudent  to  add  10 

to  the  high  frequency  portion  (see  H(f))  of  the  final  predicted 

spectrum  when  the  aircraft  features  engines  with  a maximum  thrust, 

T , appreciably  greater  than  50,000  lbs.  Note  that  this  last  pro- 
vision has  not  yet  been  entered  into  the  computer  program. 

1.3  Landing 

S (f ) emphasizes  the  excitation  of  the  fuselage  second 

Li 

bending  mode  (vertical) ; otherwise  there  is  no  great  distinction  to 
this  flight  phase. 

1.4  Low  Frequency  Atmospheric  Turbulence 

This  function  is,  in  effect,  added  to  the  SANDL  flight 
phase  of  the  aircraft  to  provide  emphasis  in  the  low  frequency 
regime.  Simulation  of  rough  air  characteristics  is  the  objective 
of  this  special  function  and  may  be  used  in  conjunction  with  P(f) 
at  any  altitude  and  mach  combination  so  long  as  the  flight  conditions 
are  straight  and  level. 
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30 


20 


10 


-10- 


Special  Function,  S„(f),  For  Buffet  Turn 

BT 

S^^(f)  = +35  dB 

BT  max 

X = 1.25 

X*  = C 

>.583 

f 

0 

6^ 

ot 

A 

f ** 

0 

3'  1 

a' 

2h  Hz 

.0^*5 

0.0 

+5  dB 

5I.I46  Hz 

0.2 

1.0 

1.  Relative  to  P(f)  at  Sand  L flight;  at 

X ; at  D = 0 feet  (See  Figure  D-3). 

D i 

2.  f/f  = 0.21;  f = 5 Hz 

L L 

3.  Sg^(f)>0dB 

h.  f'  = K f /x'  , where  K = 1 and  f = 30 

0 c c 

downstream  distance 

Hz 

■rr-T-rri — ^ 

1*  5 67  8910 


' 'A’  lL-1 — — T^rTTTTXT^ 


-f/f  X 10' 


3 h 5 678  910 
2 


3 !*  5 67  89  10  10" 

f/f  


Figure  D-2.  Special  Function,  Sg^(f),  for  Buffet  Turn 
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Figure  D-3.  Location  on  Aircraft  of  D Parameter 
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Figure  D-4.  Special  Function,  S^(f) , for  Takeoff 
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(f)  - dB  (re.  P(f)  SANDL.  M = 0.93,  H = 3000  ft  % 
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15 


10 


-5 


-10 


-15 


-20 


X,  X 


S.  (f) 

L max 


Special  Function,  S (f).  For 

^ 1 

Landing  Phase.  S (f)  = +12  dB 

Ll  maJC 

X = 2.0 

x'  = 0.5 

f 

o 

B 

a 

f " 
o 

6" 

0.3 

O.h 

2 f 2 
^2n 

0.3 

i.6o 

1.  Relative  to  sand  L flight,  M = 0.93,  H = 3000  ft 

2. 


at  x^  (see  Table  D-l). 
L 


f = Second  fuselage  bending  mode,  vertical,  symmetric. 
2n 

3.  Sj^(f)  > 0 dB. 

U.  f ' = K f /x' , where  K = 1.0  and  f = fp  /2 
n c c 


1 1 — t t I I M J 71 T — I I I I I I I'-  I t • I • I I ll  ^ 

10"^  2 3 1*  5 6 789  10°  2 3 1*  5 6 789  10  2 3 U 5-6  789  10 


.f/f  • 


. f/f 


Figure  D-5.  Special  Function,  S (f ) , for  Landing 
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Figure  D-6.  Special  Function,  S^g(f),  for  Low  Frequency  Atmospheric 
Turbulence 
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APPENDIX  E 

EQUIPMENT  MOUNTING  CATEGORIES 
1.0  Category  Selection 

Table  E-1  provides  a number  of  equipment  mounting  configurations 
that,  with  the  possible  exceptions  of  categories  III  and  IV(a),  rep- 
resent equipment  mounting  methods  commonly  encountered  in  fighter 
aircraft.  By  referring  to  the  simplified  drawings  of  the  table, 
the  user  may  choose  which  of  the  configurations  most  closely  agrees 
with  the  user's  particular  equipment  mounting  situation.  Having 
selected  a category,  the  user  has  immediate  reference  to  the  adjacent 
remarks  column  which  identifies  and  locates  the  transfer  function 
corresponding  to  the  selected  category.  All  such  transfer  functions 
are,  of  course,  stored  in  the  program  card  file  and  are  automatically 
selected  when  the  user  identifies  the  category  during  the  input  steps 
detailed  in  Section  III. 

1.1  1(b),  A Special  Case 

Note  that  Category  1(b)  is  simply  the  high  frequency  trans- 
fer function,  H(f),  and  represents  the  only  case  when  H (f)  is  cor- 

m 

rected  for  the  equipment  mass  loading,  W (see  Appendix  C) . Mass 
loading  corrections  for  the  other  categories  are  integrated  into 
their  respective  transfer  functions,  Y(f);  this  can  be  seen  by  re- 
ferring to  the  associated  graphs  of  the  transfer  function  curves 
(Figures  E-1  through  E-5), 
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1.2  Spatial  Adjustment  for  R(f) 

Predicted  response  magnitudes  of  the  secondary  structure 
are  based  upon  structural  transfer  functions,  whose  maximum  values, 
Y^(f),  are  taken  to  be  at  the  first  bending  antinodal  point  of  the 
shelves,  racks,  or  instrument  panels  (Figures  E-5  and  E-6) . Thus  R(f) 
represents  the  maximum  expected  response  of  the  structure  and  this 
is  usually  at  the  midspace  point.  For  many  fighter  aircraft  con- 
figurations, the  equipment  mounting  points  are  located  rather  close 
to  the  end  constraints  of  the  secondary  structure.  From  the  equip- 
ment response  viewpoint,  this  situation  represents  the  case  where 
R(f)  tends  to  approach  G(f)  and  thereby  induces  the  following  de- 
cision criteria  (not  yet  entered  into  the  computer  program) ; a 
criteria  which  allows  the  user  a choice  of  responses,  R(f)  or  G(f). 


If  e 5 L/4 
let  R(f)  = G(f) 


(see  Figure  E-5) 


If  the  above  condition  is  obtained,  then  the  user  may 
reject  the  computer  output  of  R(f)  and  select  G(f). 
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TABLE  E-I  (Cont.) 


laSSi 


Ill(b) 


See  Fig 
E-3{a) 


See  Fig. 
E-3(b) 


dB  wise, 
add  Fig. 
E-I(a)  to 
Fig.  E- 
3(a) 


dB  wise, 
add  Fig. 
E-l(a)  to 
Fig.  E - 
3(b) 
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TABLE  E-I  (Cont.) 


CATEGORY 

X 


^MAfiKS 

See  Fig 


E-5 


2r 
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f/f 

c 


Figure  E-la.  Transfer  Function  for  Category  1(a) 
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H(f)  - dB  (re.  H5,(f)) 
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Figure  E-lb.  Transfer  Function  for  Category  1(b) 
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Figure  E-2a.  Transfer  Function  for  Category  11(a) 
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Figure  E-2b.  Transfer  Function  for  Category  11(b) 
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Figure  E-3b.  Transfer  Function  for  Category  Ill(b) 
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Figure  E-4.  Transfer  Function  for  Category  V 
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Category  Ill(b) 


< e < 


X 

2 


Figure  E-5.  Midspan  Location  of  R(f) 
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R(f) 
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Figure  E-6.  Midspan  Locations  of  R(f)  for  Instrument  Panels 
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Figure  E-7.  Transfer  Function  for  Category  VI 
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APPENDIX  F 
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I»T  = «^VAL,neLTA 

ys , between 

tabular 

1ST 

BENOING 

MODE 

VALS.  ,F- 

VIPRF 

211 

r 

CXEAir 

I MERVAL  ,nrLTA 

VE , BETWEEN 

TABULAR 

2NO 

BENDING 

MODE 

VALS. , A- 

VIPRF 

212 

0 

ry'’A7c 

interval, PtLTfl 

xo  ,nf:  tween 

tabular 

7 NO 

RENDING 

MODE 

vals. ,a- 

VIPRF 

213 

r 

(.  X 2 c 1 E 

INT":RVAL,Pt'LTA 

XE , between 

TABULAR 

2 NO 

PENDING 

MOPE 

VALS. ,F- 

VIPRF 

214 

r. 

CX2F16 

1 NT'RV  AL  ,OrL'rA 

Xr,BETWFLN 

TABULAR 

2Nn 

bending 

MODE 

VALS.  ,F- 

VIPRF 

215 

r 

^X7^^ 

TN'T  !RVAL,0ELTA 

XE , BETWEEN 

TABULAR 

2 NO 

PENDING 

MODE 

VALS.  ,F- 

VIPRF 

216 

r 

0X2111 

I NT-fVAL  Job’Ll  a 

T"  ,BFTW£'"N 

tabular 

2N0 

B'^NOING 

MODE 

VALS. ,F- 

VIPRF 

217 

D'^VAL 

OFOINAL  OI'^TANCF  pftweCN  LINES  OF 

LEGE 

:nds  on  plots 

VIPRF 

218 

r or  OTN^EP  FPFO,  oc  y(F)  transfer  FUNCTION  VIPRF  219 

o FCCATl  INCUT  VALU^  FO-*  fo  oor  CATEGORIES  OTHEP  YhAM  lP,tA  ANC  ^4^  VIPRF  220 

r FCCAT?  INPLT  VALUE  F'"’  c-  r^R  OATEGORIES  4A  AMQ  40  VIPRF  221 

o rr^-OVF  INFUT  VflLUr  FO®  mijl  J IPL I C ATI  ON  CONSTANT  k VIPRF  222 

o FCo  CE^T-P  FRED. OF  c(F)  VIPRF  223 

r OT  VIPRF  224 

FL’^  FOR  STOFINO  VALUES  OF  FL  EX-FUNCT  IONS  USEO  WHEN  VIPRF  225 

o C ALELL ATIN'o  L (‘^)-'^(p)-H  (F)  VIPRF  226 

r FLXPF  VALL"  OF  olFX-pLUCTION (Hl-Fcpo. ROLL-OFF)  FOR  P(F)  VIPRF  227 

FL^l  '^ALLE  CF  FLFX-cuUCTION  UHCN  F/F  =X  VIPRF  228 

E Q VIPRF  229 
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'' 

VflL'JF  CF  TPANS^FR  OR  SOECIAL  FUNCTICNS  WHEN  F = F OR  F = F» 

VTPRF 

2-?0 

?7r 

r 

C C 

VIPRF 

231 

r 

LCC5TOR  FPf  ,MT0M-FoE'^.R0LL-CFF,  FOR  L (F) 

ViepF 

21? 

2 

VIORF 

211 

n 

FL’FLC 

imiOR  F-^E^'.,  LOM-PPEO.ROLL-OFF,  POR  L (F) 

VIPRF 

234 

r 

p 

VIPRF 

235 

c 

r*-  flX 

Flfo.vALUF  USlO  WHEN  rflLC, VALUES  OF  TRANSFER  FUKCTI 

VIPRF 

216 

FK  lypc 

FRIO. FOR  ^LOT  OF  G(F) 

VIPPF 

217 

rv  A vwF 

»-fXI»'UK  PPP'^.FOR  PLOT  OF  H{F) 

VIPRF 

238 

rw  oytsp 

MAXIVU*'  P9co,rop  hlot  QF  P(F) 

VIPRF 

219 

r 

LCnTOR  FRF  0,  ,hTOH-FpEO.ROLL-CFF,  FOR  M (F) 

VIPRF 

240 

7L^ 

r 

F^'PLC 

LCriTOR  FPl^.,  lOW-FRLO.ROLL-rFF , FOR  »'(F) 

VIPRF 

241 

/« 

FMTVr,F 

PRt^.FOR  •’LOT  OF  G(F) 

VIORF 

242 

r* 

r»>TK'HP 

MiKX^'llv  ppco.poR  ■‘LOT  OF  H(F) 

VIPRF 

241 

r 

P w 7 ^ p p 

pp|_n^FOP  OLOT  OF  0(F) 

VIORF 

244 

r 

F^' 

IFT  FMSElAGF  PTNOIMG  moD£  FR F ^ , V 5 FT IC AL-S Y^MFIR 10 

VIOPF 

245 

pit, 

r 

ForiHP 

/•fcflv  PCR  «TOFI^G  VAL'IES  OF  FREQ.'JSEO  WHEN  CALCLLATING  F*  F 

VIPRF 

246 

r 

0 

VIPRF 

247 

pp’^n 

a^fay  fcr  storing  freo. values  SELTFT'^D  Whcn  oalculatug 

VIPRF 

248 

'' 

L fc  )-M  (p)  .h(F)  AMn  ijSEO  AS  APSCISSAS  OF  POINTS  OK  CLOTS 

VIORF 

249 

'' 

FP^ 

FP£^,\/ ALUF 

VIPRF 

250 

pen 

r 

FPPL 

APPflv  FPR  ctpfTK  FPEO. values  SFLECTED  for  AFsriSSAS  CF  ociK 

VIORF 

251 

r* 

0^  clotc  of  p(C)  (ynn  h(F) 

VIPRF 

252 

r 

FZ 

AcpAv  PCR  STOPIAG  VALUES  OF  F ANO  F*  USEO  WHEN  CALC.L(F)-W 

VIPRF 

251 

f 

C {? 

VIPRF 

254 

r 

P7FFMI 

LorUTOR  FP:0. ,WTGH-FPEO. roll-off, FOR  H (F) 

VIPRF 

255 

9 cr 

r 

F7yFL  r 

LCFATOP  FPfrt,,  LOW  F P EO  . ROL  L -OFF , FOR  H (C) 

VIORF 

256 

r 

P7PI 

LCCATOR  FCP^.,HIGH  FR^O  , pql  L -OFF  , FOR  SPCOIFTEC  Y(F)  CAT'"F,CR 

VIOPF 

257 

r 

FZLf'WT 

LCCATCK  FRF^.jMTOh  FRCO. roll-off, for  L(F) 

VIPRF 

258 

•"ZLFLC 

LCCMOP  FPfo,,  LOW  crlo.rOLL-CFF,  FOR  L (F) 

VIPRF 

259 

r 

P 7L0 

LCroTOP  F'^i-O,,  LOW  FDcrj^qriLL-rFC,  PQR  S'^EOIFTCO  Y(F)  CATEGOR 

VIPPF 

260 

per 

r 

FZ^FHI 

LCCATOP  fpl'>,,mtgh  Fpen, roll-off,  for  M (F) 

VIPRF 

261 

r 

FZ^'FlC 

LCFATOR  fp^o^^  jrm  CTRL'), roll-off,  epR  HfP) 

VIopF 

262 

f* 

F’^PF 

LCOATCR  FPf^.,mtoh  FREO.ROLL-CFF, for  F (F) 

VIPRF 

263 

f* 

P?^ 

STCKD  FUSTLAOE  rNOING  MOOE  FRFQ  , , vfr  TI 0 AL-SYHM£  T R IC 

VIORF 

264 

r 

H 

CCPAY  rrR  rioCTKG  VALUES  OF  ALTITUDE 

VIPRF 

265 

r 

MILO 

APR3Y  FCR  STOPIKG  WALUIS=0  OR  =1,0EK0TING  LOW-faSS , H GH-PAS 

VIPRF 

266 

r 

WIT*^ 

HFIGHT  Fc  thAfaft-RS  ON  PLOT  LAPELS , TITLES  Fir, 

VIPRF 

26  7 

r 

•"ITLI 

H[  IOhT  of  ruAPAOT-RS  ON  ^LOT  LA FE LS  ,TI TlES  LT^, 

VIPRF 

268 

r 

MV  isy 

MAyi^ijM  MMwr  pF  ALTITUOE 

VIORF 

269 

r 

I 

WCF‘<TNF  IVTOGfr  warIA.olE 

VIORF 

270 

?7n 

c 

lALUy 

=1HA  FCc  ALUMTNUW 

VIPRF 

271 

Iflic 

=7H  A-l'  Fpp  POWPARE  with  IPLANc(I) 

VIORF 

272 

r 

lA-'P 

= 7H  A-7P  FOP  r0‘^OAP'-  WITH  ICLAMCfi) 

VIOPF 

271 

r 

rlF  PLCNY 

VIORF 

274 

r 

I»>IFC  T 

= ?hET  FL'FFf  T TURN 

VIPRF 

275 

275 

n 

TCK 

vaciapl'’  '■oual  to  1 or  c usee  for  eeterwining  currckt 

VIPRF 

276 

r 

F!  tphT  chase 

VIPRF 

277 

r 

I'PC'Op 

AROL**fnt  of  SUOpouTINL  "REAnrcS**  WHIOF  OLTCFyinef 

VIPRF 

278 

r* 

ORAACHIKT,  ricrCTIOM  ACTOR  RETURN  FRCm  PALL  TO  "RFACCCS" 

VIORF 

279 

r 

IFTPSt 

SI.FSOPIPT  OF  FICST  LLLHLNT  IN  AN  APPAY  WHICH  IS  PLOTTLO 

VIPRF 

280 

r 

IFLI’^P 

SET  col'Al  TO  VARIARLF  ISAr40L  OR  VARIABLE  JFLITF 

VIPRF 

281 

r 

IF^ 

rlFK  OR  ?H?N  for  SUOSCRIP"^  IN  orimi  or  f oP  F 

VIPRF 

2P2 

r 

Kl  ?K 

VIPRF 

281 

r 

IFMSF 

=FHFINIfh  USIO  for  OOMOARE  with  contents  of  COL.l-e 

VIPRF 

284 

r 

of  input  data  capos 

VIORF 

285 

2‘'5 

r 

IFlll 

= PH  F-ll‘»  FOR  COwpar:  WITH  I'^LANEd) 

VIPRF 

286 
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c 

= 71-  F-lc  FOP  COMPARE  WITH  IPLANE(l) 

VIPRF 

287 

r 

iri6 

= 7W  F-16  FOP  rOMPARL  WITH  IPLANEM) 

VIPRF 

208 

r 

IF4 

=FH  F-4  FOR  OOMPARF  WITH  IPLANE(l) 

VIPRF 

289 

r 

IHrLD 

AC'FAY  FCR  FTOPINO  CONTENTS  OF  APPARENT  "OESCRIPTION” 

VIPRF 

290 

2cr 

r; 

INPLT,rATA  CARP  AFTER  PCTURN  FROM  SURROUTINL  "RIADCCS** 

VIPRF 

291 

r 

II 

wnc»<iNf;  imtEC^'R  VARIARLF 

VIPRF 

292 

C 

XL 

=7HLANriNC  FOP  LANDING  FLIGHT  RHASF 

VIPRF 

293 

r. 

ILTK'LI 

ARRAY  FCR  ’^TOPING  PLOT  TITLL  LINE  CHAFAGTCR'^ 

VIPRF 

294 

r 

ILINF? 

array  FCR  STORING  PLOT  TITL^  LINF  CHARAOTPRS 

VIPRF 

295 

2cr 

r 

I»^«  n 

= 1UY  FCR  MAGNPSI'JH 

VIPRF 

296 

INCPL^ 

V ALUF  ( PLANt^S  OR  NOT  PLANKS)  PETPRHINES  WHETHER  THE  FLCTS  OF 

VIPRF 

297 

c 

TRANSFER  ANO  PccooMSF  FUNCTIONS  ARE  RROOUCED 

VIPRF 

298 

r 

IPHASC 

S«"T  ‘^OLAL  TO  CHAR. COMB,  DFNOTING  FLIGHT  R H ASF  , PPOU  I R FD  FOR  F 

VIPRF 

299 

r 

IPLANF 

ARRAY  FCR  ^TOPING  INPUT  VALUES  FOR  INPUT  DATA  ICE  NT  I F ICATI C 

VIPRF 

300 

r 

IPLCT 

intlger  vafia^lf  pqr  count  of  plots 

VIPRF 

301 

isflN’ni 

= *^HSAN'DL,nrNOTING  S AMO  L FLIGHT  PHASE 

VIPRF 

302 

r 

TSTEFL 

= Ih'tOENOTING  STEEL  PLATE  MATERIAL 

VIPRF 

303 

r 

IT  SKOF 

r^HTAKECFR , DENOTING  TAKEOFF  FLIGHT  OHA^^E 

VIPRF 

304 

r 

ITTTAh 

= 1R'',CEN0TI»'G  TITANIUM  PLATE  MATERIAL 

VIPRF 

305 

r 

ITITL^ 

flppflY  prp  STORING  PLOT  TITLE  LINE  CHARACT«^P^ 

VIPRF 

306 

r 

ITL'PG 

= EHT",FOR  LOW  PRcr,,  ATMOS.  TUpnULENCE 

VIPRF 

307 

r 

IX 

TNTtrLP  VAPTAOLE  f^DR  SUBSCRJOI  IN  PRINT  OF  X ,X  ,X  OR  X 

VIPRF 

300 

r 

«T  T L F 

VIPRF 

309 

r 

J 

IN'^'GfR  WORKING  VARIABLE 

VIPRF 

310 

31P 

r 

JFLIT'- 

INFLT  VALUE  ^0°  FLIGHT  PHASE 

VIPRF 

311 

r 

K 

INTcrrp  WOPKIN'G  VARIABLE 

VIPRF 

312 

r 

L 

int':g'”r  working  variable 

VIPRF 

313 

r 

LX^  A?^r 

AFFAY  FCR  STORING  CHARACTERS  FOR  NAME  X-AXIS  ON  FLCT 

VIPRF 

314 

r 

LVKAMf 

ARRAY  prp  SIPPING  CMARACTCRS  FOR  NAMF  Y-AXIS  ON  FLCT 

VIPRF 

315 

r 

H 

INT  = G‘^R  WORY  VAciaBLF 

VIPRF 

316 

r 

A T c R L 

INPUT  VALUE  FOP  PLATE  MATERIAL 

VIPRF 

317 

r 

f'nF7pc 

pf  r’*  VALUED  IN  ARRAY  ••pfZ'’F" 

VIPRF 

318 

r 

^C^ 

n;im  = «^r  pf  ta=5ula'5  values  for  category  3,y(F)  parameters 

VIPRF 

319 

r 

MDP^ 

NUMaRp  CP  OECI'’'=’L  VALUES  STORED  IN  ARRAY  ••DPOVAL" 

VIPRF 

320 

3?r 

r 

C DC 

Mljwpcp  pr  PECIICL  VALU-S  IN  AFPAY 

VIP9F 

321 

C 

KHTpri 

\iycip  Qcr  rLCI'^rL  VALUES  IN  ARRAY  ”rqHmr* 

VIPRF 

322 

r 

N»^CDE’ 

^'Ijwccp  rr  rP''IB'"L  VALUES  IN  ARRAY  •'CBMPC?'* 

VIPRF 

323 

“ 

r PTS 

M,k.rrp  PF  foTN'T'^  CALCULATED  FOR  FUNCTION  L ( F ) - m (F  ) - H ( F ) 

VIORF 

324 

C 

^■REVA  L 

rUM''’-P  CP  TABULAR  VALUES  OF  R USED  WHFN  CALC.  F»  FCR  H(F) 

VIPRF 

325 

3?^ 

r 

S 0 

VIPRF 

326 

rCFFcr^TIOM  TO  'M ‘^ ) AND  H{P)  FCR  R 

VIPRF 

327 

r 

S 

VIPRF 

328 

r 

w 1 n r 

NL^^ccp  pr  no  VALUES  I*'  ARRAY  W'^lQC 

VIPRF 

329 

r 

NUM^cF!  CF  VALUES  IN'  ARRAY  WE133C 

VIPRF 

730 

ttr 

r 

r ' w F < 

NUMBER  P'^  VALUES  IM  ARRAY  WEpBOO 

VIPRF 

331 

r 

f'laic 

NL'M'^CR  rcr  nrpiorL  \fALUES  IN  ARRAY  "CBIAIC” 

VIPRF 

332 

r 

NL^^’ER  GF  ffTIoEL  VALUE'^  IN'  ARRAY  ••CB1A7P*' 

VIPPF 

333 

r 

N 1 F 1 

NU^^-CR  ''F  PFCIPPL  VALUES  IN  AFRAY  •TBlcic- 

VIPRF 

374 

n 

K'  1 c 1 e 

NJL»'^'"R  Gc  TFCI^cl  values  IN  ARRAY  •’GBIPIF” 

VIPRF 

3'«5 

7 713 

r 

r;l  CG 

NU.'MCCR  CG  rTCI'’GL  VAL'JGG  IM  ARRAY  "rBlF^’* 

VIPRF 

336 

n 

M F 1 1 1 

N':MF'‘R  LLCT'^-L  VALU'^S  IM  AFRAY  ••GBinr* 

VIPRF 

337 

r 

p p 1 : 

yyucip  fF  rrCIOfL  VALUES  IN  ARRAY  "COEAIO” 

VIPRF 

3B0 

r 

r:2  «7n 

ML'M  = ZR  CP  npci'^'L  VALUED  IN  ARRAY  ••CP?A7D** 

VIPRF 

3^9 

r 

NIJ^^’ER  GP  n£CIf’rL  VALU1«:  IN  ARRAY  "DBEFir- 

VIPRF 

340 

3i>r 

r 

K-  2 c 1 c. 

fjl.wnrp  pr  CECI^'L  VALUPP  IN  ARRAY  ••rq2Fl6** 

VIPRF 

341 

c 

n?fl 

MLMGPP  CF  GfCi'^LL  values  in  ARRAY 

VIPRF 

342 

f' 

^2=111 

MLMFGR  GF  GFCI'^FL  VALUES  INI  ARRAY  EpEUI 

VIPRF 

343 
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c 

P“  UK 

MAvif-MH  OF  V(r)  FOR  S^'CIFirp  OATEGCRY 

VIDRF 

3A4 

r 

? 

VIPRF 

345 

ZU5 

C 

PPM 

MAyI^'Uy  OF  P (F)  ,osF,/HZ. 

VIPRF 

346 

c 

PPMPO 

Mf XIMpri  OF  P(F>  ,on. 

VIPRF 

■•47 

r 

PI 

^C^STANT  = •'.1^4l59255 

VIPRF 

340 

r 

PNCP** 

RATTOt AV.PRESPUR"  AT  ALTI TUOE/ AV . PRESSURE  AT  EFA  LEVEL  ALTI 

VIPRF 

349 

r 

PS'' 

SCl'AFF  CF  P,nYNAMin  PRESSURE 

VIPRF 

350 

3*’^ 

r 

R 

AVFIrASE  0^^'SITY 

VIPRF 

351 

r 

ppy 

PF  ,PFYKOLr«?  KU'*'>-R  AT  DISTANfF  y 

VIPRF 

352 

r 

Y 

VIPRF 

353 

r 

PN'CPH 

P fl-'int  AV.QcusiTY  AT  AL T I TUOE /A V . PENSI T Y AT  SEA  LEVEL  ALTITU 

VIPRF 

754 

r 

RS 

I^PUT  value  *^09  OISTANOE  FRO^*  SKIN,R 

VIPRF 

355 

lec 

r 

S 

VIPRF 

356 

r 

PS“0X 

♦'AX. VALUE  OF  P OOVERFO  BY  ARRAY  OF  TABULAR,  HECIPEL  VALUES, 

VIPRF 

357 

r 

VIPRF 

358 

c 

PSVflLS 

ARP5Y  FCR  STORING  TABULAR  DECIBEL  VALUF3  tJSEO  WHEN  CALCULAT 

VIPRF 

759 

n 

ft  C0R  w(C)  AVO  CORR*^CTION  TO  M(F)  ANC  H(F)  FOP  R 

VIPRF 

360 

r 

n S 

VIPRF 

361 

r 

PAWI 

SFT  rOUCL  TO  FOCI  FACTOR, HF  RCLL-OFF  FOR  S(F)  OF  SPFC.FLIGH 

VIPRF 

362 

r 

SALO 

SOT  -OUAL  TO  FORM  FACTOR, LF  ROLL-OF^  FOR  S (F)  OF  SPEC.FLIGH 

VIPRF 

363 

r 

SflPi 

SET  F^^UAL  TO  SLC^E  FACTOR, HF  ROLL-OFF  FOR  S(F)  OF  SPEC.FLIG 

VIPRF 

364 

r 

SPLO 

SET  E^LAL  TO  SLC^E  FACTOR, LF  ROLL-OFF  FOR  S(F)  CF  SFtC.FLIG 

VIPRF 

365 

Tfr 

r 

SOFTO 

RATIOIS  (F)/S  (F)  » for  CAlC.  S (F)  CORRES.TO  A OO, USING  IN 

VIPRF 

366 

r 

PT  P PT  M RT  H 

VIPRF 

367 

r 

VALUE  for  OflFMAY 

VIPRF 

368 

r 

Sn'^LTA 

\»ALU'^  OF  S (F)  at  FHINGF 

VIPPF 

369 

r 

f'T 

VIPRF 

370 

37^' 

'^r7HI 

SFT  roL'AL  TO  LOCATOR  FREO,,HIGH  FREC,  POLL-OFF , FOP  S(F) 

VIPRF 

371 

r 

OF  S'^EC.FLIGHT  PHASE 

VIPRF 

372 

r 

cp7|_r 

SEY  TOUAL  TO  LOCATOR  FREQ,,  LOW  FREC . R OLL-OFF , FOR  S(F) 

VIPRF 

373 

r 

OF  SPEC. flight  ohASE 

VIPRF 

374 

r 

cirw 

APD3Y  FOR  STOPI^G  VALUE  0 OR  VALUE  1, DENOTING  LCW-FREC.AND 

VIPRF 

375 

37P 

r 

HIGH-Fpro, P0LL-CFc,RESR, , WHEN  CALC,  L ( F» - H ( F) -H ( F ) 

VIPRF 

376 

r 

soL’^jr 

AFP8Y  F''R  storing  ''ABULAR  VALLES  FOR  VELOCITY  OF  SOLNC 

VIPPF 

377 

r; 

S o t A K 

SFT  cQUAL  TO  HAYIHUH  VALUE  OF  S(F)  FOR  SPEC. FLIGHT  PHASE 

VIPRF 

378 

r 

‘^XFI 

^TT  tquAL  to  ^'OPH, FRFO, ratio  , HIGH  F RED  , ROLL -OF  F FOR  S(F) 

VIPRF 

379 

r 

OF  5”Er,RLIGHT  PHACr 

VIPPF 

380 

r 

<^YLO 

S’"!  «^OUAL  ''O  UOP'I.FREO.pATIO,  LOW  F RE 0 , ROL L-OFF  FOP  S(F) 

VIPRF 

381 

r 

OF  SPLC. FLIGHT  CHASE 

VIPRF 

382 

r 

T 

I^-PIJT  VALUc  COR  AIRCRACT  ^LATE  THICYNESS 

VIPRF 

383 

r 

T AyAMT 

FCFf-  FArTOF,MTGH  CREC.  ROLL-OFF , cOR  S(F)  QC  TAKE-OFF  FLIGHT 

VIPRF 

384 

C 

tayalc 

FCC»-  FAGTOF,  low  FRF''. ROLL-OFF, FOR  S(C)  OF  TAKE-OFF  FLIGHT 

VIDRF 

785 

T^r 

r 

TAKOh j 

SLCPT  FA''TrK,HTGH-FRFO,R0LL-0FF,F0P  S(F)  OF  TAYE-OFF  FLIGHT 

VIPRF 

386 

C 

T AYn(_r 

SLfCC  LFW-FRFO, ROLL-OFF, FOR  S(F)  OF  TAKE-OFF  FLIGHT 

VIPRF 

387 

'* 

T fl 

value  Cc  SPECIAL  FUNCTION  S(F)  cOR  TAKE-OFF  FLIGHT 

VIPRF 

380 

r 

TA^yni 

UCFK .FRFO. FATTO ,HIGH  FR rq , RO L L -CCF  , FOR  S (F)  , TAKE-OFF  FLIGHT 

VIPRF 

389 

r 

TAKXLT 

NGCt'.FREO,  K ATIO,  LOW  FRFO.  ROLL-CFF  , FOR  S ( F ) , T aKE-0  F F FLIGHT 

VIPRF 

790 

3o« 

T0flMI 

FOP''  factor, HIGH  c-REO.  RCLL-OFF, FOR  S f F»  OF  LOW  FREC. 

VIPRF 

791 

r 

AT^^CS.  TUR^ULlNSL  phase 

VIPRF 

392 

f* 

T6  = HI 

SLfF-  factor, HIGH  c-RRO. ROLL-OFF  , FOR  S(F)  FOR  LOW  FREC. 

VIPRF 

393 

r 

AT^cs,  TUR'^ULENGE 

VIPRF 

394 

Jo^C 

''LATER  FRFo.ofr  v-iGH  FPEO,  ROLL-CFF  SECTION  OF  S<F)  FOR 

VIPRF 

395 

70C 

LOW  AT^^OS.TJRTULZUCF  PHASE 

VIPRF 

396 

r 

T35f  F 

V AL'JF  (RFFEPENr-  ) OF  S(F)  AT  FREC=F*  USED  WHFN  CALC.  HAXIHU*- 

VIPRF 

397 

r 

C 

VIPRF 

790 

r 

VALU*"  S(F)  at  RRZO,  = tBFC 

VIPRF 

399 

IKL^.N 

L'‘HC-Th  or  tick  ►'ARK  ON  RIGHT  HAND  Y AXIS  OF  PLOT 

VIPRF 

400 

?8 
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i, . 1 

c 

'uirjn 

FC»<  ITOPTNC  \//\HJFS  HP  Ptl  ANC  PFjfl#  pQp  L(F),M(P)  AN 

VIPRF 

«^01 

r 

P(F),MSPD  Wm:h  ^ALCiJLATING  L ( F > -M  ( P ) -H  ( ^ ) TRAN'SFFR  FUNTTICN 

VIPRF 

^402 

r 

T wcopp 

T HCF  A » PHR  (P) 

VIPRF 

A03 

r 

u 

PP^:-STP_A‘'  VFLP^TTY 

VIPRF 

^<04 

r 

\/ 

AVCFACl  Kirf-ATTF  VISCOSITY 

VIPRF 

A05 

t^rr 

r 

VflLK 

APPflv  PCR  ‘^TOPTK^,  VAlU-S  OF  y USFO  V.HFN  OALFULATING  P'  FOP 

VIPRF 

<406 

r 

C 

VIPRF 

<407 

VI sro^ 

ftppiv  CPR  ^TCPI^G  TAHUlAR  VALL'^’^  op  AVCRAGL  YINPHATIC  visrc 

VIPRF 

<408 

r 

\/^  r 

pAttp*  flv.yTHPMATTO  VISCOSITY  AT  A L T H LP  P / A V • < I N'F  M A T IC  VISCO 

VIPRF 

<409 

r 

AT  PEAL'^V’^L  ALTITijnr 

VIRRF 

<4l0 

r 

wp 

INPI.T  V'^LOC  for  -OUIPMENT  WEIGHT 

VIPRF 

<4ll 

r. 

wr  1/ 

APP'^Y  FOP  '■TPpTKr  xa'tilAR  VALLES  OP  rpuiPME^’T  WEIGHT  LSED  W 

VIPRF 

<412 

r 

At  rijL  ATING  P»  for  m(P> 

VIPRF 

AIT 

r 

7 

VIPRF 

A14 

r 

f M y 

maytviim  value  of  '^OijithenT  W£  I GHT  , WE  , f 07  TAF»ijLAP  OECIFLL 

VIPRF 

<415 

L ir 

r 

VALLF-S  STOFEP  IN  ATR  A Y"  WEp  G C C ” 

VIPRF 

<416 

r 

F r 1 r,  3 

l^rpfly  prR  ftopING  D'CIOEL  VALL'^S  CCRR'" '^°0NPING  TO  FCLIP.WEI 

V IPRF 

<417 

r 

UP  TO  1CTLFS.,USE0  WH£M  CALP . GORREOTION  TO  MAXIMUM  OF  H(F) 

VIPRF 

<418 

r 

wi  ICC  f 

Appav  pr,7  eTOPING  OECIOLL  VALL'FS  CCFRE SPONGING  TO  EQUIP. WEI 

VIPRF 

<419 

f' 

UP  TP  1C  uO  L^S  . , USED  'JH£M  C AL  C . OORR'^’CT  I ON  TO  MAXIMUM  OF  H(P) 

VIPRF 

<420 

t 

r 

Wp  P L L 

AFFfl''  POP  fTOPING  0pri3rL  VALLES  OOPRE  FpONPING  TO  EQUIP. WEI 

VIPRF 

<421 

r 

UF  T^  '^:OOL^^.,L'SEn  WUEN  CAL  C.  CORRE  CT  TON  TO  MAYIMijm  cF  H(F) 

VIPRF 

<422 

r; 

ws 

prf'SiTY  OP  ''IPOFAPT  PLATE  MATERIAL 

VIPRF 

<4?3 

r 

y 

niPTANOP  Y ,V  OR  X 

VIPRF 

<424 

'' 

{ TL 

VIPRF 

425 

r 

ynyis 

L'"^G'!’m  Y AXIP  OF  PLOTS 

VIPRF 

426 

r 

XGl 

PT  EISTAHOf  FPO*-  THE  LEADING  PPGE  0^  THE  FUSELAOF  AFRCPYNAm 

VIPRF 

427 

r 

PRCPTLL  TO  THF  Kl'ir,  CHORD  CENTER 

VIPRF 

428 

r 

yC'^'^LP 

LCN''TH  of  LOGARITmmiO  OYCLF  FOR  XAXIS  OF  PLOT 

VI°PF 

429 

r 

yp 

F PTSTANC^  »^RnH  THE  LEADING  FCGF  0*^  THE  FUSELAGF  ALPOEYNAHI 

VIPRF 

430 

T n 

r 

RPFFILE  TO  TW  WING  OHORQ  CENTER 

VIPRF 

431 

r 

ypcpvy 

APFflY  FfP  STORING  TH*^  MAXIMUM  VALUES  DP  L(F),L  (F),M(F)  ANG 

VIPRF 

43? 

r* 

? 

VIPRF 

433 

r 

TP3NCPLP  PUNOTiros  USED  WHEN  CALC'ILATIVG  L ( F ) - M ( P ) - H ( F ) 

VIPRF 

434 

r* 

y WFP CF 

MAvlMIJH  VALUE  DC  m(P)  ODRRrZCTEP  FOR  W ,W  AND  R 

VIPRF 

4T5 

I^-jr 

r 

c c s 

VIPRF 

436 

r 

yHFHI 

NCF^.FRfQ.  FATIO,'-'TGH-FRL^.ROLL-CFF,h(F)  QUPPCNT  FLIGHT  P 

VIPRF 

437 

yuPL  C 

'‘'CPf' .FR'"0.  PA  Tin , LOW-FRrO.ROLL-CPP,H(F)  OF  rURPEN'T  FLIGHT  P 

VIPRF 

438 

r 

VH  F^'ay 

MAXTmIIw  value  H(P)  OEFORF  CORP'GTinN 

VIPRF 

439 

r* 

YM  T 

S«^T  POU''L  TO  NDRM. FRED, RATIO  , HI^M-PPEO.^OLL-OFF, FOR  SFEC.Y( 

VIPRF 

440 

LLr. 

r 

yLcrpc 

MfiXIMUH  VALUE  OF  CORREPT^n  FOR  y 

VIPRF 

441 

r 

c 

VIPRF 

442 

r 

YL  fhI 

f,CC»..PFrn^c/\TT0,HIGH-F7ED,R0LL-CFF,F0R  L (F) 

VIPRF 

443 

YL^L  C 

NOD- ,FPLO. PATIO , LDW-PREQ.ROLL-CFP, FOR  L(P) 

VIPRF 

444 

r 

yiFr-ay 

MfiXIMUP  VALU*^  OF  l(F)  OEFDRp  CnPR'^GTICN' 

VIPRF 

445 

1 1 c; 

YL  r 

SFT  FOLAL  TO  NO  PM  . ^0  . P A"^  1 0 , L 0 W- F R EO  . RQ  LL  - CP  F , FOR  SPEC.Y(F 

VIPRF 

446 

r 

XL  ?FPP 

H/'yif-lJH  VALU-  OP  L (P)  AFTPR  rORRECHON  FOP  X 

VIPRF 

447 

f' 

7 F 

VIPRF 

448 

r* 

YL -fhI 

NfPM.pRPO. PATIO, HIGH-F7^0,R0LL-CFP, FOR  L (F) 

VIPRF 

449 

r 

? 

VIPRF 

450 

r 

yL?FLr 

f Oc  w .FRc'^,  f'ATIO  , LOW-cor-Q^^oLL-CFF  ,C0R  L (F) 

VIPRF 

451 

n 

? 

VIPRF 

452 

r 

XL  pFMy 

MAYIhUH  VAL"r  OF  L (F> 

VIPRF 

453 

r 

2 

VIPRF 

454 

r 

y^'  PKNf 

MACH  NO,  OF  CURRENT  AIRDRAFT  PROFILE  ANALYSIS 

VIPRF 

455 

Urt^ 

C 

y M F n c c 

MAvXMtiw  VALUE  0'^  M (>^)  , CORRECTf  D FOR  "W  p”  ANDERS" 

VIPRF 

456 

r 

YM  FM  I 

NCF-.FP'-O.  PATIO, HIGH  FR'-o.ROLL-CFC  , FOR  »(F) 

VIPRF 

457 
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Ui^ 


i^ir 


4 7'=' 


4P'' 


*4  PK 


LCJ 


4CC 


51C 


74/7.  CPT-l  PIN  4,!:«-414 

08/16/77 

13.11.2" 

r 

Vf'^LO  ^'CP'' .FR"3,  ATin,  LOW  FRro . pql  L -CFF  , POR 

VIPRP 

458 

r 

YMFVflv  VALii"  w(P) 

VIPRF 

459 

r 

yoc  NrP*',rRPO.  ^ATIO,Mir,H-Fo^O,ROLL-CFF',  FOR 

VIPRF 

460 

r 

yJL  '*P‘  "L-  DIFTAMO*^  FRO^^  the  LFAniNC,  EPS*'  OF  THE  FUSELAFE 

VIPRF 

461 

r 

A^crrv^A‘^I^  opoFILP  TO  THE  LAK'P'ING  G-AR 

VIPRF 

462 

r 

yVAL  Y r^roOTM^Tc  of  lower  LE‘=’T-HAND  OOPNER  of  info. line  flt  ok 

VIPRF 

463 

p 

^lft  ry  niiiSPLA  G'JP-ROijtime  ••pl^css" 

VIPRF 

464 

r 

yy  wcP‘<T^'^,R- Ai  variarlf 

VIPRF 

465 

r 

yXFFHT  NCP*' .'^PLO,  RATIO,  WIP,H  «^RLO.  ROLL , FOR  H («=■)— CONST  A NT 

VALUE 

VIPRF 

466 

r 

xywFLr  ^:CP^ .FR^O. PATIO,  low  F^EO.ROLL-CFF  ,P0R  H (P) --OONST ANT 

value 

VIPRF 

467 

r» 

vyLPRT  ,»-RFO,  RATI'^  ,WIOH  PRLO.  RO  LL-CFF  , FOP  L ( P ) --OONST  ANT 

value 

VIPRF 

468 

r 

VYLPLr  NCP*'. PPFO,  FATIO,  LOW  P RPO  . RO  L L - CP  P , POP  L ( P) --CONST  ANT 

VALUE 

VIPPF 

469 

c 

yi  WCFYIMG  VniA^LF 

VIPRF 

470 

r 

v2  WCPXTNG  VAPJAPL'^ 

VIPRF 

471 

r 

X7  'JOCYIMC  'MPIA^L'^ 

VIPRF 

472 

r 

VL  WCFYINr  VAPIA^LP 

VIPRF 

473 

r 

vflXlS  LP^CTH  OF  V AYTc  0^4  PLOTS 

VIPRF 

474 

n 

^STPo  STPP  ST7"  ,v  PAIA  UNITR/INCH  FOR  °LCT  Y AYIS 

VIPRF 

475 

n 

vv.U  rCOROINATt  OP  lower  LFPT-HANP  corner  op  info. line  plt  on 

VIPRF 

476 

r 

PLCT  py  DTSSPLA  SOO-ROUT I NE  "RLHESS" 

VIPRF 

477 

VIPRF 

478 

VIPRF 

479 

VIPRF 

480 

ri'-ENSIOK  FRF  ,n£POPL(lSu)  ,ORrL  (IFG)  ,PPSpL  (l^O  ,FSPL  (ISC) 

VIPPF 

481 

ri^^'-NFION  alt  (£)  , AHA^'NC  ( S)  , ALOHA  (4)  ,roaVAL  (41  ) , IHOLO  (P) 

VIPRF 

482 

ri»'=NSJON  cn  P4  (4  1)  , nf’?P4  (41)  , nniPlS  (41)  ,nP2PlS(41) 

VIPRF 

483 

riMFN^^ION  n‘=lFl6(PE)  ,nc?'^l6(41), 081111(41)  ,0'’?111(41) 

VIPRF 

484 

riMFNPIPN  CriA*»0(4i)  ,n-r>  ,>70  (41)  ,081  A1  j (41)  ,nE2AlI  (41) 

VIPPF 

485 

ri»'ENPTnN  WPK(14)  ,\/AL’^<14),ClAAWE(ll),ClA^'wr(ii) 

VIPRF 

486 

CI''FN*'TnN  FP7PF(7Q),P'^RIHP(41)  ,OnRS  (40),RS\/ALS(43),wriCO(7) 

VIPRF 

487 

ri'-FNSTOt  4Fi.jr  M7)  ,w-EO  (9)  ,nBHFPS  (^R) 

VIPRF 

486 

ri^FNriON  rF(4),YPrP*'Y(4)  ,TW0n(4)  ,FLY(4)  ,F7(4),HTLP'(4),SIGN(4) 

VIPRF 

489 

01  ►'FNSTON  ALI  TL'n(  F.l ) , AWO  (61)  , AVOENS  (FI)  , SOUNO  (61)  , VISCOS  (61) 

VIPPF 

490 

CI^'«■^■FIO^  C‘*wr(i:),C3AyMY(i:j),C3AAP(lC),03AYO(lC),r3Br(lJ), 

VIPPF 

491 

ir3‘=Y(i'")  ,rippp(n),c‘»'’Y'’(io),o3oyHX(ic),C3°AO(i(»)  ,c3^A(in) , 

VIPRF 

492 

?C3  Aa(  1 ") 

VIPRF 

493 

VIPRF 

494 

VIPRF 

495 

CC‘'^CN/PFLCTT/F,YnAKN'C,Y,RS,WP,WS,IFLlTL,CATGPY,lLINri(7), 

VIPRF 

496 

lITTTLlC'),IPLAv:(T),LYK'AHE(4),LYNAMr(4),XrYrLF,Y«^TE'>,YAyiS, 

VIPRF 

497 

2YAYI5,PlTF,MlTPl,'»’ICLEN,Yl,X2,X3,Y4,yX,IPHASc  , IMOPLT  , I PLANK 

VIPRF 

498 

VIPPF 

499 

COVMC^/YAF•:S/F^,XLF»^Ay,t^^N,XL’FHX,^UFMAX,yPT  ,XTL,FPM0VF, 

VIPRF 

5C0 

IN'-CCFl  iCX^'OPl  ,P3Hroi  (100)  ,NHOO''2,OyMrC?,nBHOO?  (10  0)  , 

VIPRF 

501 

2ILINl?(P),ISANCL, I^UFEl , ITAKOP, ILANO, ITURP,IFNISH 

VIPRF 

5C2 

VIPRF 

503 

VIPPF 

5C4 

FATA  ^t'P7cc/?o/,PF-»PF^l.‘'45,1.153,3.°00,  3.746,0.651,0.592,C. 

551, 

VIPRF 

505 

lC.E3C,t:.5rc,C.49^,G.4R'’,1.470,C.457,C.4S4,G.44  6,0.440,r,43S, 

VIPRF 

506 

2C.*<?N,u.421,:.4l6;,:.4113,0.4  0 72,n.4C?F,3.3980,0.79T4,C.3e88 

t 

VIPRF 

507 

3C.  3842,0  .■>706, C. 375/ 

VIPRF 

508 

VIPRF 

509 

FATA  REVALP/0.,J.25,:.5D,D.75,1.3,1.25,1.50,1.75,2.0,2.?5,2. 

50, 

VIPRF 

510 

1?.7*^,3,C,T,5,4.],<.5,5,0,5.5,6.0,7.0,8.C,9.0,13.0,11.0,12#C, 

13.0, 

VIPPF 

511 

2it:.n,lE.C',ie.C,l‘".3,l8.3,lP.o,20.J,21.0,?2.0,23.n,24.C,?5.t, 

26 • u , 

VIPPF 

512 

327. C ,2>*.  C,?c.  C,3j.O/ 

VIPRF 

513 

VIPRF 

514 
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516 


5?n 


cpi; 


CIO 


5“P 


5t0 


Ct.R 


rro 


5rc; 


5er 


r pr 


c7r 


DATA  CPRS/:.,-2.0Ct-?.f?,-'^.30,-3.PC,-U.40,-4.‘i0,-*^.20,-5.50,  VIPRF 

l-5.9u,-6.15,-6.4':,-6.8r,-7,7J,-B.OC,-0.5O,-9.U,-g.6,-lC.O,-lC.e,  VIPRF 
?- 11. 5, -12. C, -12. 7‘-, -17, 20, -13. 70  , -14. 00, -14. 40, -14, 60  , -14.90,  VIPRF 

3- 1 '".2r,- 15. 3D, -IP  .7  0,-16.05,-15.95,  -16.0,-16. 10,-16.20,-16.30,  VIPRF 

4- l€.4C,-lf.5r,-16.6C,-16.65,-16.''0/  VIPRF 

VIPRF 

DATA  P'3RIFP/55PJ.  ,'»8Cb. , 3350.  , ■»350.  ,720u.,31GC. ,2950. ,2800.,  VIPRF 

1273C.,26fC.,25fj. ,2470 .,’400.,?320.,220C.,21CP.,2Cn0.,1950.,  VIPRF 

219^1.  ,1«.L.  ,1754.  ,169'!.,  16  0 C.  , 15  8 3.  ,1560.  ,15 10.,  148  0.  ,1^*5  0.,  VIPRF 

31423. .  138C. , 1360.  , 1 34 0. , 1 3? 0., 130 5. ,1285. ,126  8. ,12^6. ,1250.,  VIPRF 

41244. . 1238. .1232. .1226.. 1?2C./  VIPRF 

VIPRF 

VIPRF 

data  w"K/2.F,3.8,l:.0,'^.5,lj.O,15.0,20.C,3r.O,4].0,fO.C,80.C,100.0,  VIPRF 
1160.C ,23C.j/  VIPRF 

TATA  VAL  »</ 1. L, C. 99, O.PP,  3. 95, 0.92, 0.87, 0.84,0. -^6, 0.73,6.6  75,  VIPRF 

1C. 6 5 0,0.6  0“,  0.6  75,0.55  0/  VIPRF 

VIPRF 

DATA  ^»-FRS/29/,DX'^FPF/0.  10/  VIPRF 

DATA  rFMFF':/-i7.G,-16.5,-15.3,-13.7,-12.4,-11.2,-lC.2,-P.2,-fc.l,  VIPRF 

1- 7. 3, -6. 6, -F,  8, -F, 0,-4. 5, -3. 9, -3. 2, -2. 8, -2. 2, -2. 0,-1. 7, -1.2,  VIPRF 

2-  1.1, 7;,, -0.4  (.,-0.30, -0.23,-0.10,0./  VIPRF 

VIPRF 

CATft  KTl  8/1  1/ ,CXClA/2'].1/,XIMniA/lC  . C/  VIPRF 

DATA  riAAw:/i,0,l.3H,i.4^,i,r7,i,^p,i,7Q,i,75,i,77,i,o?,i,pe,1.9?/  VIPRF 
TATA  riA«W£/C.,-1.C,-l.8,-?.’',-2.8,-3.’,-4.0,-^.5,-5.2,-5.5,-6.5/  VIPRF 

VIPRF 

DATA  KWE  i;  ;/7/,D9{  lCC/15. 0/  VIPRF 

FATA  H IF  C/''.  ,-0.6, -1.25  , -2. 0 ,-2. 5, -3. 75  , -4. 5 / VIPRF 

TATA  ^ vriv/7/,ruTn<'/^c;c,  <7/  VIPRF 

DATA  WtlLC V-4.5,-1G.0,-12.6,-14.4,-15.2,-16.  1,-16.6/  VIPRF 

DA'^A  ^'Wt  5X/c/,cw'^5‘F/500.  ^/  VIPRF 

DATA  4.^5  OOV-IF.F,- 17.  {-7, -18,  9, -19.7,-20.15,-23.6,-21.0,-21.25,  VIPRF 

1-21. PC/  VIPRF 

VIPRF 

DATA  ^ CnP/41/,D-LnnB/l .0/  VIPRF 

DATA  rCPVAL/C. ,-Q. 02, -C.  35  ,-0  . 10,-0.2  0,-  0.22,-3.30,  VIPRF 

1- C.  44, -C. 5:, -C.  6 0,-0. ‘I", -1. 00,-1.20, -1.43, -1.80, -1.90,-2.20,  VIPRF 

2- 2.P3,-'*  .f  : ,-3.5^  ,-4.  :.:,-4.fc-,-5,ic  ,-5.«0,-6.60,-7.5G,-8.3C,  VIPRF 

3- o.2C,-1C.1:,-11.5G,-11.‘'0,-1’.7D,-13.50,-14.''J,-15.0C,  VIPRF 

4-  IP. 70,-16.50,-1-^. 23,-17.90  ,-  18. 50  ,-1°. 10/  VIPRF 

VIPRP 

DATA  '•T*ir/iJ.%ir.C',?:.0,7j.Q,4J.O,6C.?,80.O,l’O.C,16O.C,2CO.C/  VIPRF 

DATA  F-'AV»'X/l?.0,11.6,11.5,ll.C,19.7,l?.u,°.p,8.-»,7.5,6.0/  VIPRF 

DATA  CTAP/:. 3. c,:. 2 8?, “.’•’8, 3.26  4,0.25  7,3.24  0,3.235,0.220,  VIPRF 

26*:/  VIPRF 

DATA  C'»AXC/C.5f3,0.48},0.44  5,3.4G6,C.385,0.350,0.3-*2,r.?95,  VIPRF 

1.  .'’8:,':.2‘''''  VIPRF 

TATA  f7a*4c/i,cc3,i.oc7,1.90°,  1.918,  1.920,1.936,1.94  0,1.96  0,  VIPRF 

11  . ,2.  Cr-/  VIPRF 

PA-'A  r3B>'-v/24,0,16.',14.6,11.2,10.2,8.C,7.4,6.3,6.1,6.C/  VIPRF 

TATA  rTBR/C.i:0,:.13G,C.14‘',3.175,C.  190,0.225,3.  2 35,  C.  265,  VIPRF 

1C. 28?, '*.-*3*/  VIPRF 

DATA  1C. , C . 1 67, 3 .190, 3 .260, C .280 , C .350,0. 375, C.435,  VIPRF 

1C  . 3 , : . pC“  / VIPRF 

TATA  nQY/ 1, 42, l.P?,i.P5,l.  6^,1.69,1.78, 1.81,  1.89, 1.95, 2. 00/  VIPRF 

PAT  A PTBvr/Q.-’pj,  ■ , e25,3.59  9,  3.524,  C.494  ,C.41°,0.403,C.  33  3 , VIPRF 


515 

516 

517 

518 

519 

520 

521 
52? 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 
54’ 

544 

545 

546 

547 

548 

549 

550 

551 
55? 

553 

554 

555 
^56 
557 
550 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 
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COT  = l 


FTN  4.5f414 


08/16/77  13.11.78 


1^.208,". 25r/ 

raT8  r3?/'/i.OO,0.f4,w.54,Ci.  36,0.33,C.20,1.l75,3.120»C.110,C.10/ 
GAT®  f*PflF/l,  40, 1.46,1. ‘5’), 1.56, 1.58, 1.64, 1,6 8, 1.73, 1.75, 1.80/ 


5 75 


5 


6CC 


6r'^ 


615 


f 2r 


, 40, 1.46, 1.53,1. 5b, l.t>8,l.b4,l.on,i.rj,i.r5,i 

0.,50n,,n03.,15  00.,20CC.,250C.,300C.,3500.,4COC., 

,,  55rC.,  60J0.,  6500.,  7000.,  7500.,  "000.,  8500., 
,,1jJC0., 11000. ,12000. ,13000. , 14 000. ,150 00. ,16000., 
,,iqncc.,2:010.,2inCO.,22000.,23000.,240CO.,25COC., 
,,?0OCO.,2PO1O., 30000. ,31000. ,22000. ,33000. ,34000., 
,,370  CO.,  ■^8000.,  39000., 40000., 41000., 4 20  00., 43000., 
,,45000., 47000., 48000., 4O000.,'00r0./ 

CftT^  f VP /211b. 2, 207 8. 3,2240.9,2004. C ,1967.7, 1031.9,1896.6,1861.9, 
*18  27.7, 1794.0 ,17^0. 8,172  8.  1,1695.9,1664.2, 1632.9, 1602.2,  1571.9, 

*1542. 1,1512. 7, 1483. ",145 5. 3, 1399. 7, 13 45. 9, 1293. 7, 124 3. 2, 1194. 3, 
*1146.0,1101.1,13^6.8,1013.9,  972.5,  932.4,  89*’. 7,  856.3,  820.2, 

*7e  = .3,7  51.6,'^19.1  8,657.6,628.4,60  0. 3,573.3,547.2,52  2.1,4  98.0, 

*474. 7, 452. 4, 471, 411. 0,391. 7, 373. 3, 355.  8, 3'^9. 1,323. 2, 308. 0,293. 6, 

♦27  0. 8 ,266.7 ,254.1 ,242. ’/ 


Cflia  8LTTLO/ 

* 45Cu . , 5C  JC 

• 90CC.,  9530 
*17000.  ,i8n': 
*26000. ,27030 
*’5000 . ,36030 
*44000. ,45030 


CATft  AMPov 
*.22°ir-C  2, 
*.?367t-C2. 
*.l"6eE-02, 

*. 1611F-G  2, 
*.lMe6-C  2, 
*.i:68t-C2, 
*. "5’6E-0  3, 
*.e"2l[-C  ’, 
•.51132-C  3 


9/.  2513‘^-C? 
.2?49C-r2, 

. 20  33E-r 2, 

. 1836£-r?, . 
.15396-02,. 
.127’E-0?,. 
.10  lOE-r?,. 
. 81"5F-'3,. 
.6.34n.-r-«, , 
- 4 ACfiP- r 1 . 


, .24675- j2 

??nL-02,  . 

1999'“-C2,  . 
l"'’5o-C2,. 
1*^086-02,  . 
1233^-02,  . 
9033^-03, , 
7«53C-03,  . 
6C746-03,  • 
UPq:>F-n.7  . . 


,.24226-02 
21736-02, . 
19656-02, . 
1774E-Q2, . 
1458L-0?, . 
1188E-02, . 
95776-03, . 
75296-03, . 
58181-C3,. 
44956-03. 


,.23776-02, .23346-02, 
21376-02, .21026-02, 
1932F-02, .19006-02, 
17186-02, .16636-02, 
14116-02, .1364F-02, 
11476-02, .11076-02, 
92286-C3,.8e9CE-03, 
72156-03, .65126-07, 
5573E-03,. 57381-03, 
43066-C3.. 41256-03, 


TATA  VT 
♦.1397F- 
*.17496- 
♦.1911F- 
*. 2167E- 
*.2551T - 
*.71?5l- 
*.3^395- 
* oc- 
*.5’4SF- 
♦.72E3E- 


666-/. 1467F-03 

01.. 1625£-C3,. 
C 3, .17756-.’,. 
C7  ,.  1940F-C’,. 

07. . 22229-03,. 
C7,.2621E-C3,. 
C3,. ’1159-03,. 
7’,.  377'=E:-l3,. 
C3,. 4738.-03,. 
C3,.5076l-C3,. 
C 3 ,.  75546-':3/ 


, . l4P?t-0 
16516-03, 
1«:?6-Q3, 
iqfqc-03, 
2283r-f3, 
269bC-03, 
3’J8E-03, 
3Cl’6-93, 
49’5[:-C3 , 
62136-03, 


3,.1517E-C3 

.16756-0’,. 
. 18266-03, . 
.1998F-C’,. 
.2346F-03,  . 
.27740-03,. 
. 33366-03,  . 
.4066E-03, . 
.51181-03, . 
.6460F-03,  . 


, .15436-13 
16996-03,. 
10566-03,. 
2C51F-03,. 
2411E-03, . 
28545-03, . 
3407F-03,. 
42236-03,. 
53206-03,. 
67l’«--03,. 


1570E-C3, 
l7?4l-03, 
16876-07, 
21066-03, 
247PF-03, 
29’PE-07, 
35126-03, 
43P7E-03, 
55306  -03, 
59P4E-03, 


F.nA  1ST'- "LtlTIT  A»MAL')M,  IMAG/IHS,  IHT  ,1HA  ,1HH/ 

HAT  A Cl  a /2PlA/,C^A/2M?A/,r2P/2H29/,r3A/2H3A/,C3B/2W3B/,f  5/1H5/ 

TATA  ClP/’Hir/,C4A/2W4f/,C4n/2H49/,6e/lH6/,I9LAMK/lH  / 


VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPPF 

VIPRF 

VIPRF 

VIPRF 

VIPPF 

VIPRF 

VIPRF 

VIPRF 

VIPPF 

VIPRF 

VIPPF 

VIPPP 

VIPPF 

VIPRF 

VIPPF 

VIPRF 

VIPRF 

VIPRF 


572 

573 

574 

575 

576 

577 

578 

579 
500 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 
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c tr- 


f f *“ 


p T 


pf*- 


P7n 


6^^ 


e *'<■ 


noorD/\»/  VXP-^F  7t/7£j  r^T-i 


OP/16/77  13.11.78 


r,ATfl  T«^^/eF  i"-4/,irin/7H  >^-1  B/ , IF16/7H  F-ic,/ 

fata  Iciii/fiH  <^-1 11  / ,I  A7^/7m  A-7C/,I  A1  j/7H  A-IC/ 

Ffl-r^  ■^^®>f''-»T°'FrT,IL'\^'n,TTAlOF/qH'^AKDL,2H°T,7HLANCING,7WTAKLOFF/ 

C'flTA  TTiJP’P/?mtf/ 

^A'fA  '^T/3.!A1BC2FB/,Ip^.T3H/6M'^INTSM/ 


FAT.'' 
C A "A 
1-1 :. 
2-1 
3-2B. 
A -c. 


^!'"A/^^l/,^xlFl-/^,c'»/ 

nriF/.  / -1.60,  -2.6C,  -A. 10,  -B.AC,  -7. 30,  -9.80 

oC,-l’'.C'',-^0.rC,-c6.C*j,-2ii.40,-22.10,-20.’C,-iq.lC,-ie.AC, 
,-17.oo,-i<^.?o,-18.9  0 ,-20.A3,-2  2.qC,-25.7C,-2e.CO, 
2:,-F’.6C,-l'^.6C,-17.73,_ir.53,.i4,,jQ^.i2.70,-11.3G,-lC.10, 
ITi  -^.3C,  -7.rC,  -6.80,  -6.00,  -5.30/ 


FAOa  K^f^A/Ai/ ,rx2FA/l. '''»/ 

CATA  rc?r^L  / c.o,  -.cr^  -2.00,  -4. To,  -6.^0,  -9.70,-15  . 00  ,-26.00  , 

1- 2“.uu',-lF.-^u,-13.’C,-11.0'^,-ll.C0,-11.30,-11.30,-12.6r,-14.^C, 

2- ie.G^,-l».P:,-2'’.4:,--»0,aC,-25.90,-22.C0,-lc.lG,-l'^.gC,-17.3O, 

3- 17.4C,-17,Q^,-lQ,R0,-?5,qfj,-?5,63,-19.n0,-14.8C,-11.0C,  -8.75, 

4 -‘■.75,  -4,6..  -3.83,  -3.00,  2.4^/ 

MF  I*- /4l /,nyiFl‘'/l.  375/ 

FAT^  rciFir/  J.r,  -1.75,  -2.8C,  -3. CO,  -^.CC,  -f.OQ,  -7.80, 

1 -^.2'=»-ll.lC,-13.75,-!G.90,-21.20,-25.40,-?6.3C,-?5.6C,-23.e0, 

2- :’“. i:,-!^’. 3c, -16. 9C, -16. 25, -16. 10, -16.15,-16.80, -17.60,-18.70, 

3- 2:. C 0, -21. 73, -2”. CC, -25. 8G,-?5, 70, -21. 40, -19. 30, -16.80,-1''. 40, 

4- 14.}'  ,-13.  uc  ,-12.2. ,-11. 13 , -1C. 30,  -°.5J/ 


PATA  ^2Fl«^/4l/,^)X2Fl^/l.  375/ 

TATA  rcpci=/  -1.10,  -2.43,  -4.25,  -6.30,  -8.80,-12.40,-18.03, 

1- 26.UC  ,-17.0  C,- 1-^.0  11.3'^,-!  0.90,-10.75, -1C.  •'3, -11.  10,- 11.  50, 

2-  1 4. ‘‘O,  - I*'. C'', -77. 0^,-20.33,-19.  13  , -18. 50,-18.40,-18.  80, 

3- lc.9r , .^r , 3,  ,-26.C,  , -21. 4j, -21. 40  , -19. 8. 1 ,-18. 20, -17. 20  , -16. 20, 

4- 15.7C,-15.3^,-m,LC,-i3,nT,-i7,i^3,_17,3ri/ 


FATA  ► 16/55/, ^XiriF/''.  :»r/ 

PATA  rOlPlP/  -.4C,  -1.33,  -1.4C,  -2.20,  -2.6C,  -7.40  , -4.20  , 

^ -^.40,  -3. 63  , - 10. 60  ,-12.3  3,-14. 50,-13  . 80  ,-  22.6  0 , 

2- 2P.2C,-2‘’.2C,-?‘^.i:,-21.63,-2r.90,-20.15,-lc.50,-ig,3C,-19.C0, 

3- l». or, -IF. P^,-l<». 6 0 ,-13. 5. ,-18. 63, -IP.  75  , -19. 30,-19.60,-20. 20, 

4- 2  1.40  ,-2'’.  P':  ,-•’4.4  0,-95. 5 j,- 75, 00,  -26.29  ,-26.0  0 ,-25.  80  ,-25.  30, 

5- 2''.rir,-21,?0,-in.7G,-l''.«3,  -.30,-15.13,-14.10,-17.20,-12.30, 


r'ATfi  ^ If / ,gY2FlF./l.  147P/ 

PATA  p^pFlP/  :.3,  -1.^0,  -2.5j,  -4.30,  -6. CO,  - « . 20  , - 1 0 . 9 0 ,- 1 5 . 0 C , 

1- 22. if, -26.3:, -2 3. 75, -17. 6j, -17. 15, -17. 40, -21. 60, -25. 10,-25. 50, 

2- ’‘'.:C,-25.'=C  ,-25.  Cl  ,-2  7. ,-’1.90  ,-21.63  ,-72.  75,-24. 5C,-25. 60  , 

3- 2e.CO,-2‘'.flO  ,-74. 1.  ,-2i,8  3,-?i.60  ,-21.8  0 ,-25.1C,-?6.0C,-21.0C, 

4- lP.2'',-12.75,  -9.7  3 , -''.77,  -5.40,  -7.80/ 


PATA  ►•lFlll/41/, 9X1111/1, 7C,  21/ 

fata  O^'llll/  1.3,  .cf,  -.75  , -1.7  0 , - 2.60  , -’. 
1 -7. fir,  -c.e‘, -11. 2^,-17.63  ,-16.25, -20.0  3 ,-25. 30  , 
2-?''. "C, -IP. 3?, -16. 80, -15. 63, -14. 90, -14. 40, -14.  :5, 


75,  -4.90,  -6.0C 
-26. 00,-24. CO , 
-14.70,-15.20, 


VIPPF 

VIPRF 

VIPPF 

VIPRF 

VIPPF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPPF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPPF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPPP 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 

VIPRF 


629 

630 

631 

632 

673 

674 

675 
6'»6 
637 
6-^8 

639 

640 

641 

642 
647 

644 

645 

646 

647 

648 
640 
650 
65  1 

652 

653 

654 

655 
6*^6 

657 

658 

659 

660 
661 
652 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 
670 

679 

680 
681 
682 
683 
604 
685 


140 


AFFDL-TR- 77-101 


VI°^P  rnT  = i ptkj  CP/16/77  13.11.78 


6 P’^ 

3-16.1C,-1^.6r,-n,O{3,-7?,0:,-'>5,85,-26.?0,-76.1C,-?5.2C,-2C.7o, 

VIPPF 

686 

t--l7.7r,-ir,pc,-i4,oe,-1^.7:,-11.50,-lP.50/ 

VIOPF 

607 

CflTA  N2ri!l/i<l/,"‘X?111/1.7621/ 

VIPRF 

686 

rflTfl  C''211  1/41*C.  / 

VIPPF 

689 

VIPRF 

690 

f or 

PflTA  K’lA7r/41/,nxifl7n/i.  1C4/ 

VIPRF 

691 

rflTA  reiA-’^/  -.«l,  -1.63,  -2.2l,  -3.CJ,  -3.9C,  -4.gC,  -6. 

8C, 

VIPRF 

692 

1 -7.0'',  60, -n.  6 >3, -1?. 9P, -16. 60, -2‘".  20  , -25. 30  ,-20.20,-16.40, 

VIPRF 

691 

2-14.1L,-l'*.1w,-12.4C,-l?.J0,-11.30,-11.60  ,-11.65,-ll.PC,-12.50, 

VIPRF 

694 

?-l''.7‘-,-l'^.«r,-19.»»3,-t3.??,-’^..00,-25.81,-?’.JC,-16.8C,-l?.40, 

VIPRF 

695 

err 

4-11. GC,  -c.3r,  -8,-»5,  -7.70,  -6.90,  -6.00/ 

VIPRF 

696 

VIPRF 

697 

pfiTA  ^■2fl7r/41/,nx?A7n/l.  104/ 

VIPRF 

698 

r.ATA  r37»7r/  C.c,  -3.7J,  -6.4t,  -9.50,-13.0C,-21.7G,-21. 

70, 

VIPRF 

699 

1-Ifc.nc,-I1.16,-1G.:0,  -3.9C,  -g. 7?, -10. 2C,-1  1.70,-12.61,-14.60, 

VIPRF 

700 

rcr 

2- 17. 7C, -7?.  C:,-2“.«C,-’'^. 73, -2?.  30, -18. 13, -16. 00,-14.30,-13.76, 

VIPPF 

701 

2-17.40,-13.6:  ,-13. 9P,- 14.??,-!'^.  60  ,-19.70  ,-26.  jr, -20.  eC,- 13.  CO, 

VIPRF 

702 

4-10. 3n,  -7.‘»r,  -5.00,  -3.33,  -1.80,  -.66/ 

VIPRF 

703 

VIPRF 

704 

f-ATA  ri  A 1C/41/,ryiA  lC/1.  715/ 

VIPRF 

705 

■'"5 

pata  o'^im:/  c.c,  -1.0*=,  -2.73,  -4.ci,  -5.68,  -7.54,-10.12,-13. 

40, 

VIPRF 

706 

1-1». rc, -26. '^:,-7'^. 6^, -19.17,-1?.  29, -13.  19, -11. 70,-10.63,  -9.66, 

VIPPF 

707 

2 -c.^o,  -e.7i,  -8.t;L,  -8.27  , -8.04,  -8.11,  -8.74,  -3.60,  -6.32, 

VIPRF 

786 

3- 1 4 ’,-11.  =7, -14.  Cc  ,-18.  27,-26. 80  , -2  0.9  0,-1  ■*.6  6,  -9.24  , -6.  C2, 

VIPPF 

709 

4 -7.eP,  -1.S7,  -.32,  .98,  2.26,  3.io/ 

VIPRF 

710 

711 

DATA  K'2Air/4l/,9X?MC/l.  315/ 

VIPRF 

711 

CATA  rcpAi  V41*:.  / 

VIPRF 

712 

VIPRF 

713 

VIPRF 

714 

KRCy<\L  = 41 

VIPRF 

715 

71'* 

FMTNPP=1CC.r  *PMAxor=i';n  j jc 

VIPRF 

716 

«rwAXHr=iCG00. 

VIPRF 

717 

F>'T»'rF  = r,'  • AXn^r  IL  'JC-O  . 

VIPRF 

718 

uMAy  = 5*iC'''.o  ’PS‘^AX  = 30.0  3'^p^Av=5  0CC.0 

VIPRF 

719 

v"Cr:.:ic  *iPLp^=r 

VIPRF 

720 

72l 

nn|_cLrrr,*«  t '’CL  1=  0 . P ?vxLrLO=2.0  ^XXLFMIrQ.P 

VIPPF 

721 

F^''=LC  = 4C.C  r 7nMFL0=n.3  '^FMeHI  = 0.3 

VIPPF 

722 

X»'F|_c  = ?.5  }xmfwx=:.4 

VIPPF 

723 

rh‘^LC=^.3  ’"HF4I  = C.3  ?vxHFLn=’.0  <XyHFHI  = C.P 

VIPRF 

724 

AHCLC=:.P  ‘^HPMIrl.Tn  SA'7FHI  = 1.0  SALFLO=1.0  ‘*ALFHTrl.C 

VIPRF 

725 

7?*^ 

A“C|_Q=i,r  r«MF»>jrl,0 

VIPRF 

726 

rL7FLF=C.7  ’PL?FMI=C.2  3XL2FL0=1.8C  f XL 2 FHI= 0 . 595 

VIPRF 

727 

AL2FLC=1.G  ML7FHIr2.: 

VIPRF 

720 

Ai-FMAvz- 141,.  c » AMrM<\y  = -i2i.  r 

VIPRF 

729 

ciAyLr  = ?.o  ’riAyHi=:,^  35ia'’lo  = o.2  fCifl9Hi=n.2  ♦ciaalo=i,o 

VIPRF 

730 

7 tP 

C1AAWt=1.:  ?C1A‘^»»  = 29.0  3r:iAMAy  = 12.G 

VIPRF 

731 

r2AXLF-l.*  ’r2AXHI=w.F  377ftqL9=n.2  «C2A0Hl=n.?  3C2AALn=1.0 

VIPRF 

732 

C?AAMT=1.7  3C2fiFM=43.0  372AHAX=13.C 

VIPRF 

733 

CpnvLrr^.r  ^r?PXHI  = C.PC  ’•C?P9L0=  0 . 2 C C iC26  EHI  =1 . 30c  ?C2FALr=j.u 

VIPRF 

734 

C2^AHT=1.fO  Tr?pc»'=i.c  , c ?C2n‘^AX=14.  c 

VIPRF 

7-»9 

7**«-. 

r6.9Lp  = r.i  :n5Fn  = o.i  ^6x10=1. 4?  $r'=xHi  = i. /i.  42  7C5ALr=L.5c 

VIPRF 

736 

F5flMT=1.4  *r5F^=23C.O  »C9max=37.C 

VIPRF 

737 

^l'FXLr=1.2’  TFUFXHI  = 0. '83  S D'JC’PHI  = u . 2u c 361FFZL  = 24.0  ‘*EI'FFZH  = 6l 

.8 

VIPRF 

738 

rUFALr  = C.  :9nFAMT  = l.O  ’9'JFnLL  = 5.0 

VIPRF 

7’9 

VIPRF 

740 

70P 

TAXPLC^O.’  fTAX8HT=C.4  '•TAKXLOr4.0  ?TAKXHI  = 0.6  3 3TAKALr=0.4 

VIPRF 

741 

TAXAMirl.O  ’TAXMAXr  10. 

VIPRF 

742 

141 
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7£<5 


7C-I 


7f  r 


7f 


■»7r 


77c 


7H- 


7flc 


7rr 


ppor,F 

VlP^r  C^T^l  PIN  *4.54-414 

08/16/77 

13,11 

ALN"LC  = C.7  *'\LKBHT  = u.3  SALNXL0  = 2,n  JflLNXHIrQ.*?  fALNaLC  = C.4 

VIPRF 

743 

AL^AWT=1.F:  ?ALNHflY=l?,n 

VIPRF 

744 

Tocmi  = c.3  iTPflHIrl.n  ST3‘^C=!^,J  STBRFF  = l^.n 

VIPRF 

745 

VIPRF 

746 

Mr 3=ir 

VIPRF 

747 

r3flOHT=P.2  JC‘»AXLr  = 2.a  SC3AAL0=2.J  ?C1AFN  = 25.0  rC3PFN  = 3F.O 

VIPRF 

748 

VIPRF 

749 

CALL  rcwPF';  ?CflLL  YAXANG(C.>  BCALL  YINTAX 

VIPRF 

750 

CALL  EAF  AIF  (••L/CSTn**)  3CALL  HIXALF  ( "STANOARn”  ) «CALL  HARKFR(l) 

VIPRF 

751 

MITL=C.14r  «wTTF1=5.»MTTI/7, 

VIPRF 

752 

XCVCLF  = 2.''  JYAviSrfl.r  »TirL'"N=C.026 

VIPRF 

753 

VIPRF 

754 

VIPRF 

755 

r 

VIPRF 

756 

r 

* 

VIPRF 

757 

r 

PTAF  Imput  PATA  » 

VIPRF 

758 

r 

♦ 

VIPRF 

759 

r 

VIPRF 

760 

VIPRF 

761 

1 

PE  AP(«-  , !•:)  (IPLAMF  (I)  , 1 = 1,  3)  , JFLITF  , INOPLT 

VIPRF 

76? 

IF  (FCP  (F  ) .NF. C)  GC  TO  03 j 

VIPRF 

763 

4 r 

FOP'^AT  ("  PI*!) 

VIPRF 

764 

VIPRF 

765 

■>1 

VIPRF 

766 

9 r 

FPPM/.1  ( ih  1 ,19X,*I?'PUT  FATA  CA  RHS* //C  3 X , ♦ CCLU^' K NUMFCR*/ 

VIPRF 

767 

13PV,»i»  , 9y,*3»,QX,#4*,3X,*5*  ,9X,*e,»,qx,*7*  ,qx,*8*/ 

VIPRF 

768 

2?cv,ufi*******»^,  ,7A1  j/) 

VIPRF 

769 

PRINT  ■»T  , (XPLnKE(T)  ,T=1 ,3)  , JFL ITE , I MOPLT 

VIPRF 

770 

7 7 

format  ( iHf' ,26y ,*nrsrPi^TiOM  caro*/2ox,paic) 

VIPRF 

771 

VIPRF 

772 

^*"30  1-,ILTNF2 

VIPRF 

773 

PRP'T  ^‘^tlLl^'E? 

VIPRF 

774 

3 :: 

FO^PAT (1HC,2PX,*ALTITLT"-^ACH  MQ,  0 AR C* / 29X , 8 A 1 0 ) 

VIPRF 

775 

TEPOr*^  (8.'  ,37,ILTNF2)  (ALT(T)  , AMAXNO  (1)  ,1  = 1 ,6) 

VIPRF 

776 

"?  - 

FOR^^AT  (F  (P'>.?,r5.  ?)  ) 

VIPRF 

777 

VIPRF 

778 

-JAP  1P,ILTK'P’ 

VIPRF 

779 

pq  TNJ7  ^ A , IL  TN{  ? 

VIPRF 

780 

format  (iH*' ,28X,*AIPCRAPT  PARAMETERS  C ARO  * / ?qx  , 8 A 1 C ) 

VIPRF 

701 

rtror*-  (S'* , '9,  ILIN-^>)  XE,-»S,  WF,  DF,T,  FCCATI  ,FPCAT?,mateRL,CATGRY 

VIPRF 

782 

m 

pORmat  (7  pi  J . 3 , A1 , a? ) 

VIPRF 

783 

VIPRF 

704 

VIPRF 

705 

Ir'^PLA^r  (1  ) 

VIPRF 

786 

IF  d.P''.  TP4)  rr  TP  2C 

VIPRF 

787 

IF  fl.  F''.  TF15)  ro  TO  26 

VIPRF 

788 

IF  (I.FC.  IF16)  00  TO  AO 

VIPRF 

789 

IFd.PP.  TFlll)  GO  TO 

VIPRF 

790 

TP(I.PP.  lA’P)  ro  ^0  LP 

VIPRF 

7C1 

IF  d.  FP.  I M 3)  r-0  TO  A « 

VIPRF 

792 

VIPRF 

793 

call  FrArrns(n.,j.,c.,o.,o.,3.,j.,c.,o,c.,c.,o,c,,c.,(?,i»iFRROR) 

VIPRF 

794 

r-0  TO  A 7 

VIPRF 

795 

VIPPF 

796 

2" 

call  R'AForc(iA.3,-l??.P,18.q4,-l?9.0,3F.C,72.->,3S.3,1.0, 

VIPRF 

797 

lMlF4,ryi  FL,rBir4,K'2F4,PV2F4,ni2F4,l  ,IF4,  lERPOR) 

VIPRF 

798 

PC  TO  A 7 

VIPRF 

799 
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^tc 


O10 


"I*? 


f»?r 


P3i 


P *»£, 


PL5 


>»5n 


pe«; 


ponrc»»i»  VIP3F  0?"^=! 


FTN 


2:  CALL  K f ft  CnS  ( d ,5 , -1 2 7 . *3 , 27 . ft ,- 1 31 . 0 , 35  • C , 39 . 1 , A 0 . 2 , 1 . C , 
2K1P15  ,CX  IF  15,  CPl'^15,^2P15,ny2‘^15fnP2F15,  1 , IFl  5 , 15PR0R  ) 
r-O  TO  ft 7 

ft'  TftLL  RrftCCrS(l?.9,-131,0,32.5,-133.0,35.0,27,l,29,5,l.C, 
2MF16,CXlFl6,nniF16,N2Flft,nX2Fl6,n0  2F16,  l,IFlf,I5RR0R) 

GO  TO  ft7 

ft''  GftLL  RF  ftD<'0S(fl.3,-13ft.C,  3.00,  0. 0 , 35. 0 ,38 . 1 ,ft7, 1 , 1, 0 , 
ir'l^lll  ,0X1111 ,031  111, 'J2P  111, 0X2111, 002111, 1,IF  111,  IFRRPP) 
GO  TO  ft 7 

CftLL  REArrPS(15.7,-129.3,23.0,-lft0.0,35.0,20.5,25.ft,1 .C, 
2Mlfl70,rx  lft7n,DPlft70,n2fl70,nx?ft70,0B2A7D, 1 , Ift 70 , TERROR ) 

GO  TO  t7 

ft^  GALL  RF APros (q.Oft ,-131.0 , 0.0,  0.0,35.0,0.00,  ft.0,1.0, 
1^'lfllC  ,^Xlftl3,0Rlft  i:,w‘’fll3,DX2A13  ,nB2Aia,  1,IA10,  TERROR) 


ft7  IFfILfifiOR.EO.C)  GO  TO  27 

IF  (IFPFOR.EO. 1)  GO  TO  1 

IF  (lERCOP.sr, 2)  GO  TO  ft 

IF (lERROP.FG. 3. OR. IEPRCR.ro. ft)  GO  TO  ftl 

IPLAt'F  a)=TLTK'F2(  1)  I PL  ANE  ( 2 ) = IL IN^  2 ( ?) 
IPLftKF ( 3)=ILIKE2( ’)  f JFLIT-=lLlN£2<ft) 

IKQPL^rl LTKr? (T) 

PO  TO  M 

ftl  PO  1.2  1=1, e 

ft’  IHOLP  (I)  =TLINE2 (I) 


r « * 

0 • CH^CX  VALICITY  OF  INP’JT  OATA  VALUES  » 

r • • 


9’  Hr’ 

IF(JFLITE.?0.  I^ANDL  .0®.  ) ^LI TE  . EO . I o IIFFT  , OP  . JF  L IT  E . FO . IT  A •'OF 
l.rQ.JFLITP.^0.ILA^T.09..JPLITE.FQ.ITt'R")  GO  TO  9 
H=l  rPRIKT  ?o,jFl  ITF ,T^ftNDL,IOUFET,ITAX0P,ILAN0,ITURP 
oo  FORMflTdH-,  WAF  RP’AO  FOR  THE  FLIGHT  CONnITIO^',  NOT*  , AlO  ,*0R» 

lAlC,*rR*  ,A10,*OR*  ,''10,*0’*,A10/*  FOP  "ST  R A IGH  T- ANO-LE  VEL"  , **0  IF  F ET 
2TURN","Tflv'::-nFF”,"lANOING**  ANO  "LOW-FREO.  ATHOSPHLRIC  TURELLENCE" 
TFr^Pcr-Tj  vflv,  *) 


T TF(X:,GT  .P.)  GC  ''■P  10 

x=i  m=  l^‘-co)i^ -sTPtA  t i=ioHH  ft-Ro.csT  3PRINT  p,ii,j,yr 

1I=3H>:.  "CPIKT  8,II,IPLaNX 
1"  IF  (PS.PF  .p.  ) GO  TO  It- 

•-=1  ?TI=1PW  DISTAVCc  $J  = RHFR0M  SKIN  $PPINT  5,II,J,RS 
II  = 10F>0.  CR  =n,  'torimT  ft,II,IPLftNh' 


It.  IF  IftF  .rp  ,e.  ) GO  TO  11 

H=1  iTIrl^^*  EnuiP»'PN  »l  = ftHT  HFIGHT  «orINT  5, II, J, WE 
II  = 1CF>0.  PR  =n,  SPRINT  ft,II,IPLftN»< 


11  IFtPF.GT.C.)  GC  TP  IP 


1/16/77 

13.11.28 

VIPRF 

800 

VIPRF 

801 

VIPRF 

802 

VIPRF 

803 

VIPRF 

80ft 

VIPRF 

805 

VIPRF 

806 

VIPRF 

807 

VIPRF 

808 

VIPRF 

809 

VIPRF 

810 

VIPRF 

811 

VIPRF 

812 

VIPRF 

813 

VIPRF 

81ft 

VIPRF 

815 

VIPRF 

816 

VIPRF 

817 

VIPRF 

810 

VIPRF 

819 

VIPRF 

820 

VIPRF 

821 

VIPRF 

822 

VIPRF 

823 

VIPRF 

8?ft 

VIPRF 

825 

VIPRF 

826 

VIPRF 

827 

VIPRF 

828 

VIPRF 

829 

VIPRF 

830 

VIPRF 

831 

VIPRF 

832 

VIPRF 

833 

VIPRF 

83ft 

VIPRF 

8X5 

VIPRF 

836 

VIPRF 

837 

VIPRF 

838 

VIPRF 

839 

VIPRF 

8ftC 

VIPRF 

eftl 

VIPRF 

8ft2 

VIPRF 

eftl 

VIPRF 

8ftft 

VIPRF 

8ft5 

VIPRF 

8ft6 

VIPRF 

8ft7 

VIPRF 

8ft8 

VIPRF 

8ft9 

VIPRF 

850 

VIPRF 

851 

VIPRF 

852 

VIPRF 

853 

VIPRF 

85ft 

VIPRF 

855 

VIPRF 

856 
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PCl 


per 


p 7r 


07- 


P Oi*. 


8P5 


Rcr 


B rr 


n r Q 


Qfr 


o JO 


n^rr.p  w yrv^F 


7i,  n 


roT=  1 


V=1  fIT=lM  FUS^L-'^r'  J = PHDI  AMETER  SPRINT  5,II,J,nF 

P,TI,I'^LAN< 

re  TO  ir 

!'•  V1=PF/:,  - IF  (pC  ,L  r , XI  ) ';0  TO  IQ 

y=l  lF,P3,yi 

1'  rC  = »^AT  < 1 H- "^o^-ciciFP  TISTAMC‘='  FRO^  THE  SyT^'  ’.FT,?,*  EXCEEDS 
ICN'E-HH*^  T^-E  FIIS'LADE  ri^Mrjrp  *,r7,2) 

TI  = l''HFiicr ;«r,E  D EJ  = 6HTA./'>,  SPRINT  P,II,J 

1'^  IF  (T  , FT  . C.  > OC  TO  ?7 

!I!=1''»-  ^KT^'  TH  Ir'^HlCKNESS  “SPRINT  5,IT,J,T 

1I=7m>-,  ccctkt  «,1T,I=LA^'< 

IF  (nATODv  , f r,  no)  GO  TO  ■’6 
TFfFFC^Tl.O-,;;,)  r,0  TD  7^ 

1 1 1 = l''HF  ^ T^GOPY  r ri^lOMENTER  fro,  fOPTfjT  E , I T ♦ J , FCC  A T 1 
TT  = 1CH>?.  ^R  =0.  •PRIN'f  7,II,TnLAMK 

IF  (FCO-^T2.or,  ;,)  ro  TO  ’'G 

M=^  7TT=  I'.HCATIGOPY  ■?  iJ=10MA  OR  3^  Fp  fopIMT  E , 1 1 , J , FCF  A T 2 
ITMCH>0.  CR  -n,  'SPRINT  8,II,inLANK 

7'  IF  (►"AT'PL.T^.  iotefl.oo.ma^erl.eo.ttttan.of.ma'^-rl.eo.ialuh 
l.Or.HITrcL.^o.ji^pr. ) GO  "^0  GO 
Hrl  :cRIM  ’A,mat[RL 

cqR’^AT  (1 H- , *THF  L'^TTFR  SoroiFiro  FOP  TH*^  AIRCRAFT  *^ATFRIAL  WAS  », 
IM/*  IT  ►'LET  EC  S,T,A  QO  M FOR  STEEL , TIT  ANIUM , ALUMINl'M  ANO  HAGNESI 
2I.'M  ,PE  •■F^  ''T  " VI-  L'^.  * ) 

o*  IF(rATF3Y,EE,riA,PP,r:ATSRY,E'^.Ol9.FtP.OATGRY.EO,n2A.nR,GATr-RY.E^. 
If?'’, P R, r TGFY, to, TTfl.OC, CAT  0, PV, 30, C^P.  OR. CATGRY. CP. CUA,  PR, 

2P  A TGR'^ . .far  . CR.  PATGR  Y.  TO,  P5  . OR.  PATGRY,  E0,P6  ) GO  TO  5A 
N-j  'TpcTfT  r7  ^0  ATGPY  ,Pl  A , Pin,  02  A , C2B  ,C3  A , P3B  , 04  A ,049  , C5  , P6 
r'»  cQOMiT  ( IH- , A7  ,*  MAS  ^'’-OTFIFD  FOR  THF  EO IJ I R k t -MOUN T IMG  CATEGORY, 
7V.;:  pprGDA*'  EVP'^otS  <;ocr,iriOATIPNF  FO®  CATEGORIES  CMLY  AS  FOLL 
20W^  t*  1 , ( ly  , A3W»  TH:  tROGRA*^  PROCEEfS  TO  THP  K'EXT  PROPLFH  FOR  ANAL 

*»  V c T c , * ) 

f A IF(FK,^T,.,)  r.Q  TP  P.0 

^'=1  •■^I=1C^1ST  MOpF  r : J=<^HRE0UENCY  «pptnT  G,II,J,FN 

II  = 3W':,  ^opj^T  , II  ,ICL  AOW' 

P'  lcfXL'‘’^Av,i.T,vT,)  ro  TO  G6 

ETT=l^i^  ^AV.VALUc  ^J=3M  OF  L('^>  SPRINT  5 , II  , J , XL  FHAX 
7I  = '*H<^,  «CPTNT  3,II,ICL''»‘"^ 

c^  TF  (F2^  .G*-  . w.  > GO  TO  F4 

*^=1  illrl'HOMP  MOOE  F ? J = 8HRE0'IENC'^  «PRTNT  G,II,,J,F2N 
Il  = lb‘->c.  CP  ='•■.  -^PINT  <^,II,inLANK 

6'-^  IF  (YLPF  *^X.  L , G,  ) GO  TO 

I^Tzi-H  MSy.vtLU'"  TJ  = OM  OF  l2(F)  SPRINT  S , 1 1 , J , X L 2FMX 
II  = 10H<C.  PR  =r.  -fORIMT  9,II,I0LANY 

5 A IF  (PIJF*' A y ,0",  o.  ) GO  TO 

H=1  : TI=- 1 '“^'^AX.OF  f>L'F  ^IrlJH.TURN  S(F)  SPRINT  S , 1 1 , J , PUFM  A X 

IT  = 1CH>C.  CR  ='*.  *PPT^^T  S,TI,IBlANY 


'/16/77 

13.11.28 

VIPRF 

857 

VIPRF 

858 

VIPRF 

859 

VIPPF 

860 

VIPRF 

861 

VIPRF 

862 

VIPRF 

863 

VIDRF 

864 

VIPRF 

865 

VIPRF 

866 

VIPRF 

867 

VIPRF 

860 

VIPRF 

869 

VIPPF 

870 

VIPRF 

871 

VIPRF 

872 

V IPRF 

873 

VIPRF 

874 

VIPRF 

875 

VIPRF 

876 

VIPRF 

877 

VIPRT 

878 

- IPPF 

879 

VIPRF 

880 

VIPRF 

PPI 

VIPRF 

882 

VIPRF 

883 

VIPRF 

884 

VIPPF 

885 

VIPRF 

886 

VIPRF 

887 

VIPRF 

868 

VIPRF 

809 

VIPRF 

890 

VIPRF 

891 

VIOPF 

892 

VIPPF 

893 

VIPRF 

894 

VIPPF 

895 

VIPRF 

896 

VIPRF 

897 

VIPPF 

898 

VIPPF 

899 

VIPRF 

900 

VIPRF 

901 

VIPPF 

902 

VIPRF 

903 

VIPRF 

904 

VIPRF 

9C5 

VIPPF 

906 

VIPRF 

907 

VIPRF 

908 

VIPRF 

90  9 

VIPRF 

910 

VIPRF 

911 

VIPPF 

912 

VIPRF 

913 
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ojc 


c^n 


o :»c: 


oTO 


Q *»C. 


ql: 


OI  t; 


Of  0 


ore 


Of  P 


Of  c 


V/Trci 

F noT  = i rjN  L.5f41(*  QP/16/77 

17.11.28 

VIPRF 

914 

c -» 

IP  (yfT.HF.C.)  ro  TP*  CS 

VIPRF 

915 

"'=1  i 1 1=  KVPUFPET-TUP  7J  = 10HN  nISTft^’^F.  fPPINT 

VIPRF 

916 

= CP  =r.  'PPIN'r  5,II,IPL4N»< 

VIPRF 

C17 

VIPRF 

918 

6-. 

IF  (VTL  .r,F,  -. ) ro  F.4 

VIPPF 

919 

^-1  r 11=  1 c^'t; ktoff-la  « i = i:wMr)i»jG  oist  $opimt  =7,ii,j,xtl 

VIPRF 

920 

ii  = i:f>^.  :p  =:.  sprint  4,ii,irl4N‘< 

VIPRF 

921 

VIPRF 

922 

IF  (Frf'fVF.CF.  G.)  ^-0  TO 

VIPRF 

923 

M=1  « TI=  CONST  -J*  I=PHANT  K tPPlMj  5 , II  , J , FC^'OVF 

VIPRF 

924 

IT  = ‘»H>r,  -TRIKT  o.  ,TI  ,I'5L '^MI< 

VIPPF 

925 

VIPRF 

926 

IF  1 .rj,  G.)  CO  JO  *>1 

VIPPF 

927 

'^=1  ; 1 1=  , rp  VAL.  *.J  = 10'nST  O.MOrE  iXl  = NMnori  SPRINT  5, II, v), XI 

VIPRF 

928 

IT  = 1P>".  '•OPIM  ‘^,TI,If'L^Nvf 

VIPPF 

929 

VIPRF 

930 

21 

IF  (pv»'rni,rT,  Q.)  no  TO  ll 

VIPRF 

931 

*TI=1':^X-  rT''T.Ft  IJ  = PMT.OP  VALF  S^PI^’T  5 , 1 1 , J , OX  *-CDl 

VIPRF 

932 

TIr7M>-.  ‘-^CIM  8 ,II  jI'^LA^'K 

VIPRF 

933 

VIPRF 

934 

7 - 

■^F  (F’^  .PC.  *,  ) O'"  TO 

VIPRF 

9-»5 

IF fN-rCE?.^!. CC  TO  TP 

VIPRF 

936 

•^=1  rTI  = l'‘-NO.rO  VAL.  'M^lOnaMP  g.MOCF  IX1  = NmoDF;?  ^-ppikt  5,ii,j,xi 

V IPOF 

937 

1It7u>'-.  TCRT^T  8 , 1 1 ,I0L  AMW' 

VIPRF 

9'»8 

VIPRF 

<=39 

7'* 

IF  (cy‘'cn2.'T.  c.)  r-0  to  73 

VIPRF 

94C 

»^=1  xTI=l>yE  CIST. OF  «)  = 1'')HT.DB  VALE.  SPRINT  , 1 1 , J , DXN0D2 

VIPRF 

941 

II  = 7H>-.  'fcPI^T  8 ,1!  ,101^^'^' 

VIPPF 

942 

VIPRF 

943 

VIPRF 

944 

7' 

ro  1>.  f.  T = 1,F 

VIPRF 

945 

TF  (A^'rvNr  (I>  ,LO.n  .)  OC  TO  lOOT 

VIPRF 

946 

VIPRF 

947 

VIPRF 

948 

H=''LT(T)  "IP  (H.GC.^  . . A^'O.H.  L*^.  HMAX)  CO  TO  2« 

VIPRF 

949 

•-=1  UTT  ?J=4HT«J0r  SPRIM  f;,II,J,H 

VIPRF 

C50 

TI  = qH  > 00  = f J = PH  < 0?  = iXl  = 0.  FORINT  6 ,II ,X, J, HPf X 

VIPRF 

951 

7. 

FOP>'A'^(*  Tmt  PPOCPAm  that  IT  WILL  FF  * , A 1 C , 0 1 2 . 5 , ’ AND  *, 

VIPRF 

95? 

1A1J,P11. 2> 

VIPPF 

953 

re  TO  7 

VIPRF 

954 

VIPRF 

955 

?■» 

yf-ftk'Nr  = A*'AXNO(I» 

VIPPF 

95  6 

IF  (JFL  IT  S .N  E . ITAXCF  . PMC,  jflITC  .NE.  I LAND)  C-C  TO  t 

VIPRF 

957 

IF  fX-«XNC.t^.  3.1■*.AN^.^-.L■0,  2030.3)  CC  TO  78 

VIPRF 

958 

PRINT  '^,H,X^-AXN0 

VIPRF 

959 

•> 

POT’-A'^  (/////////1P1/*TM-  FOLLOWING  VALUES, SEAT  FOP  ALTITUCt(H)  ANC 

VIPRF 

96  0 

1 vflCw  (W)  ,WFPF  INCOTRFCTLT  SPrCIPILC  ON  THE  AL  T TTUOL-H  ACH  NC 

VIPRF 

961 

2.  CAP'':*/‘-x,»v-  = * ,PlC.l/''Cy,*M»,pic  .3/'*  THEY  WFRP  SFT  FOUAL  TO  TW 

VIPRF 

962 

2”  roFC-OT  \j  Al  L '’S  , H=  2 C 3 . 3 ANO  H = 0.9T,  WHICH  ALWAYS  iUST  RE  SFECIPI 

VIPRF 

963 

uwf-N  THF  flTCHT  CHASE  IS  TAKL-OPP  AND  LANOINC.*) 

VIPRF 

964 

yf-AXNC  = 3.p'’  rH  = 20CC.P  ^0  0 TO  7A 

VIPRF 

965 

VIPRF 

966 

■» 

IF(XhAknC.CT.3.)  CO  TO  "^8 

VIPPF 

967 

*'=1  rTI=l''^  ^ACH  «.J  = 4H  NO.  S*»P1NT  5 , 1 1 , J , XM  A KNO 

VIPRF 

96fl 

r 

FOPWflT (1 , ’THE  VALUE  '°:oiFICn  FOP  *,2A1L,*  IS  *,C12.5) 

VIPPF 

969 

II  = .TH>^.  'SPRINT  8 , II  ,I'’L  ANK 

VIPRF 

970 
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nporp'^'^  \/IP?F 

74/7t4  npT  = l pTM  4, 54-414 

08/16X77 

13.11. 

Q70 

a 

PDPPATC*  ThC  PPO^.FAP  ASS'JHFS  THAT  IT  WILL  PP  ’jPAlO) 

VIPPF 

371 

VIPRF 

372 

VIDRF 

37^ 

VIFRF 

374 

IF  TH.rC.  1)  GO  TO  100'' 

VIPRF 

376 

Q7t: 

VIPRF 

376 

IF  (FC»'C'»r.FC,  0.)  '^r'-Ov/F=  1. 0 

VIPRF 

377 

VIPRF 

378 

JC'f=r  :I  FI  ITC  = ISA»'OL 

VIPRF 

379 

VIPRF 

380 

gpp 

1 

Pn  17  11=1,*^ 

VIPRF 

381 

ILTMP1  (IT)  = 1H  ^ILI^^'^Pdl)  =1H 

VIPRF 

38? 

I’’ 

TTTTLI  (II)  = 1H 

VIPRF 

383 

VIPRF 

384 

ILT^'FI  (l)  = inH  TO  E^UI°F  S 1 L I^'E  1 ( 2 ) = 10  HEr4  T LOCATI  ? IL  I NF  1 ( 3 ) = 2HON 

VIPRF 

C85 

o pr 

X=XE  5TX  = 1HE  ‘I0HASE  = ‘5F  (P)S  ♦ I F ( I F L I TE  . EP  . I ANDL)  GO  TO  34 

VIPRF 

386 

IF (TFLIT f.kE. IFU^ET)  GC  TO  12 

VIPRF 

387 

ILIKF1(1)-10H  TO  THF  pw  S IL  I»' * 1 ( 2)  = 1 C HOP  D CFMTFR 

VIPRF 

388 

IL  Tf'El  (3)  =1CH  PF  TMP  wi  HLINFl  (4)  = 2HNG 

VIPRF 

389 

y=XPT  ?IY=2HnT  STrwAS'=GH  ( nj ) T 300  TO  34 

VIPRF 

390 

Qcp 

I'’ 

TF  CIFLITF  ,NF..  ITA‘<'CF)  GC  TO  13 

VIPRF 

391 

ILTNE1  (1  )=inH  TO  THE  L®  ‘^ILIMEl  (2)  = 1 GHNOING  GFAR 

VIPRF 

39? 

y=XTL  ^IX=1HT  cxomaSF=5H  (T)?  3IFN=1HN  ?G0  TO  34 

VIPRF 

99  3 

VIPRF 

334 

1 7 

IF (IFL IT' .NF,  ILAMP)  GO  TO  2? 

VIPRF 

395 

CC5 

yrXTL  :ix=lHL  5I'^HASF  = '^H  (L)I  FIFN=2H2N  3GC  TO  ■»4 

VIPRF 

306 

VIPRF 

337 

?’ 

X = Yr  rjXr'JHT^  rirHASF=6M  (T^)J  »IFN=1HN 

VIPRF 

398 

VIPRF 

999 

7 a 

lI^H/fCC.+l  5Vl=rcc, 

VIOPF 

ICOO 

i:'** 

IF  (H.  L'^  . If  :Co  .)  GO  TO  44 

VIORF 

ICOl 

iT  = M/ic  ic.fii  sxiricrc. 

VIPRF 

1CC2 

Ul 

v = \>isrcr  (II)  iC  = souM''(ii)  3R=a\/nENS  (II) 

VIPRF 

1C03 

Y2=.'iMrr  ( F,X1)  «IF  (X2.E''.  *3.)  GO  TO  4f 

VIPRF 

1C04 

II  = II41  ‘^X?  = X2/vi 

VIPRF 

1CC5 

R=- f ( f VDf  ^ S (I  I )-R) *X7 

VIPRF 

1CP6 

0 = 04-  ( '■r  U^^  ( II ) -0)  "X 3 

VIORF 

1C07 

y=M4  (VISPF*^  (II)-V)*x-^ 

VIPRF 

ICOfl 

VIPRF 

1009 

L~. 

FNOF-rR/ fiVn^NS  (1)  i VNORH-V/)(ISOOST1)  *U=XHAk’M0*O  J <^30  =P*  U»U/ 2 . 

VIOPF 

1010 

icir 

r5r:  = Ccr*c'P  : RCXrl’*  X'"  <'/I  3003  ( 1 ) 

VIORF 

ICll 

fr  LTA^rP)  .c-7/ci  X « PC  L A ■"=  1 . CE  - 2*X  £•  ( 1 . D + OFLT  A 7*DELTA7)»*  o , iq 

VIPRF 

1C12 

'"*'LTAP  = ncLl«7*(RNORM**'',7) 

VIPRF 

1C13 

VIPRF 

1014 

p-^acr  C . 7 '!’♦  L xni  lT  A '' 

VIPRF 

1C15 

irir 

VIPRF 

1C16 

oocri,7t5  ' It^  (PZPF.LF.  ■» ):.  1 ) GO  TO  OP 

VIPRF 

1C17 

rnc=‘,-»7r  *TF  (F70F.G".  lOOJC  .G  ) GO  TO  <9C 

VIPRF 

1C18 

PALL  ■rcppLI^(F?D‘^,7P^•:,3)0.0,Xl,0,®FF,BFZFF,^•3F7PF) 

VIPRF 

1C19 

VIPRF 

1C20 

1C 

VIPRF 

1C21 

0 ^ 

Vl  = . :r7  / (^  , C4-C,  14^X^'A'<^J0♦yMA‘'^^0)  TPFF'  = X1*X1*CSO*OELTAF/II 

VIPRF 

1C22 

ppMnn=;,6l77it_5  «OFMno=lP,0»ALOG  10  (*^F“/(FF  MO  P*oc  HO  R)) 

VIPRF 

1C23 

VIPRF 

1C24 

VIPRF 

1025 

TF  (»'ATF‘'  L TALM^')  TO  02 

VIPRF 

1C26 

^3  = 14,'^*'^  'J=1''H  ALUHI‘JiJm 

VIPRF 

1C27 
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VTP9F  74/74  CPT  = 1 


PTN  4,5f4l4  Oe/16/77  13.11.?8 


1C 


lO'p 


lOtn 


IP  I 5 


1C 


1C  f‘= 


icn 


iccr 


lC7n 


ir7c 


10  PO 


GO  TO  IOC  VIPRF 

q*’  IPCHATcpL.^c.iTlTftN)  GO  TO  94  VIPRF 

WS  = ?4.0*T  ^J=15M  TIT'\MUM  VIPRF 

GO  *^0  ICC  VIPRF 

oil  IF  (»‘flTPPL.KF.I^TF‘‘L)  or  TO  96  VIPRF 

WS^41.C»T  ?J=1CH  STE^L  VIPRF 

FC  TO  ICC  VIPRF 

96  WS  = o,17*T  ’J=1CH  MftGN'^I'JM  VIPRF 

VIPRF 

VIPRF 

1C  - PR1K)T  246  VIPRF 

PPTNT  •>3T,TPLfl^'",IFLITo  VIPRF 

PRINT  ao*"  .t-tXMflKNO^Xjiyjiy,  (ILINEI  ( id  ,11  = 1,9  ) VIPRF 

II  = 1H  !IF(*/lTGRY.EO,riA)  II  = 1H*  VIPRF 

PRINT  21C,PS,  V.P,T,J,WS,0'VTGRV,nF  VIPRF 

PRINT  aar  viprf 

PRINT  2?^,9,AvnEN''(l>  ,PNnRM,V,VISCOS(l),  VNCRH,r  VIPRF 

PRINT  ?3C  VIPRF 

PRINT  235,U,nsO,PFV,nFL'rAZ,nELTAB  VIPRF 

a'''"  format  ciH-,lox  ,*M  = » ,F12,  1,SX,»ALTITIICE  (FT,)»/  VIPRF 

•'>CX,*M  = * ,Fi2,2,3x,*MArH  NO.^/  VIPRF 

219X,*Y  =<',F12.a,6X,A2,*  OISTANPF  FROM  THE  LEAPING  FOGE  OF  THE  •/  VIPRF 
320X,A?  ,1 fcx  ,*FUFELArL  AEPPPvnAHIC  PR0FILE(FT.)  *,5A10)  VIPRF 

?1-  FORMAT (1 cy,*F  =» , Fl 2 , 2 , 6 X , ♦ 01  ST ANCF  FOCM  SKIN (IN, > •/ 20X, •S*/  VIPPF 

liqy,*u  =*,Fip,2,6y,*cTiiiPMFNT  WEIGHT  (LBS  .)•/ 20X  , *£»/  VIPRF 

22CX,»T  = » ,F12,  4,6X  ,*Twir‘<NESS  OF  SKIN  MATERIAL  (IN.  ) •/  VIPRF 

313'',*MfiTrpiAL  = »,3X,A10  ,5y,*TYOE  SKIN  MATERIAL*/  VIPRF 

472V,*?*/ loy  ^*  ,ri2.  •»,6X,*D“NSITy  CF  SKIN  H A TFRI AL  , L FS  . / FT  . ( C AL  C VTPRF 
5UL«TFC)*/’:x,*S*/  VIPRF 

613V,*r  ATI  rrRV=»,9x,A2, 7X,*EOIJIPMENT  MOUNTING  CATEGORY*/  VIPRF 

719V, *r  =*  ,Fl?.l,6y,  ♦DIAMITER  OF  FUS  E L AG«^  ( IN.  ) */ 20  X , • F*// ) VIPRF 

22'  F0R“AT(*  VALtJFF  SILEOTFO  FROM  ATMOSPHERIC  TABL?*)  VIPRF 

?P^  FOpmaT(  viprf 

*loy,»p  =*,Fl2,S^>X,*M«-aN  AIR  OFnSITY  AT  ALTITUDE  H (SLUG/CU.FT . ) */  VIPRF 
•19V, ^F  r*,Fl2,c,eY,♦^^•TA^J  AIP  OFNSITY  AT  ZERO  AL  TI TUPE  (SL  UG /C  L . F T , ) VIORF 
**/?CX,*0*/  VIPRF 

•17V,*F/P  =*  ,F12,5  ,6X,*NOdmalI''fo  HEAN  AIR  CENEIT  Y* /2C  X , * 0 *//  VIPRF 

*19V,*m  =*,012. 7,6y,*'^IM'1ATir  VISCOSITY  AT  ALTITUDE  H (FT . SO  , /SE  C . ) VIPRF 
**/  VIPPF 

*igv,*v  =*,Fl?, 7,6X,*MT^EMATIC  VISCOSITY  AT  7EP0  ALTITLCI  ( FT , 50. /SE  VIPRF 
*r.>*/?  y ,*  }•/  VIPRF 

*l-»v,*v/v  =*  ,fi2,3 ,6y,*N0'’MALl'^£n  KINEMATIC  VI SCOSI T Y * /2  C X , * C * / / VIPPF 

*20v,*r  = * ,Fl2.?,6y ,*SPEFD  OF  SOUND  AT  ALTITLOE  m (cj ./ slc .)*/// ) VIPRF 

27-  FORMak*  values  CALCULATED  FOR  AEROPYNAMir  pARAMETFrs*)  VIPRF 

23“  FOfmaT(  viprf 

119y,*l  =*,fi2.2,6X  ,*FPEE  STP":AM  VEL  00  ITt  ( F T , SfC  , ) * / VIPRF 

22CV,*?*, 3oy,*2*/19X,*0  =• ,L 12 . 5 ,6X , *DyNA mic  FP^SSURF(PSF  )•/  VIORF 

*1PV,*FL  =*,=12.6,6 T,*PFyNOLDS  NUMBEP  AT  niSTAK(F  X*/2CX,*X*/  VIPRF 

*lFv,*r?LTA  =*,Fi2.4,f,y,*  joUNPAPY  LAVER  THICKNESS  AT  ZERO  ALTITUDE  ( VIPRF 
*FT.)*/?OX,*n*/  VIPRF 

*15V,*rE;LTA  =»,Fl2.4,6X,*BnUNDAPY  LAYFR  jHICKNFSS  AT  ALTITUDE  H(FT.  VIPRF 

7)*/2CV,*o*)  VIPRF 

VIPRF 

VIPPF 

VIPRF 

PRINT  ?4f  »PRDT  3F3,IPL  ANE  ,IFlITE  VIPRF 

PRINT  ?4r  VIPRF 


1C28 

1C29 

1C30 

1031 

1C32 

1033 

1C34 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 
10  = 5 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 
1C73 

1074 

1075 

1076 

1077 
1070 

1079 

1080 

icei 

1C82 

1083 

1084 
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c::^Orc 

74/74  ctkj  4.5+414  Ofl/16/77 

13.11 

P4  ' 

j TLP3  OP  THl  POUNH^py  LAVER  FUr'CTIOK'  FCR  F(F)*) 

VIPPF 

lCfl5 

1 r cr 

PPTf'T  24‘^,=>FM,FPMno,PDP,YOF,FZ'^F,APFMl 

VIPPF 

lCfl6 

r>^r 

F07^fl7  (5^v  ,»7*/l6v,*P  (- ) =♦  ,ri  2. 4 ,FX  ,»ma  VALUE  OF  FSC,P?P  /H7 

VIPPF 

1 C87 

1 . * / 1 7 y , * / 

VIPRF 

icee 

27oy,*-r  2*  ,4X  /ley  ,»ri  ( F ) = + , r 1 2 , 2 , ex  , ♦ H /Jy  I ^ VALU’'  OF  PSC,rP. 

VIPRF 

1C89 

7F£.  ("  . ^I77ivic  ) D^P/U'^,  »/l7X  ,*H*  / 

VIPRF 

1 ego 

1 r cn 

41C\,*f*=*,ci?.-»,6y,*«:L'"'’F  PAPTnR,HIGH  FREO.ROLL-OFP*  / 

VIPRF 

logi 

r^oY^^X  . = * ,ci2.  7,FY,  »N0'=MALIZING  FRFO  . p a T I 0 , HI  G'^-FF  E Q . POL  L - CF  F » / 

VIPRF 

1052 

ftaY,4Cf=»^-l?,^jFy,»LCCATnp  PREOUFUCY,HIGH  FPcn,Dri|_L-cFF(H7,)  + / 

VIPRF 

1 CQ3 

7 7 Q V , » r * / 

VIPRF 

ICP4 

81ry  ,»AL7'|-A  ,p17,7  ,Fx,*PnpM  ‘^ACTOR,FIGH  FREQ  , F OLL -OFP»  ) 

VIPRF 

icgg 

inc-^ 

VIPRF 

icge 

■"TITL  1 ( 1 ) - ICH  fl^n  L 3ITITL1  (2)  =7HLIGHT)  ♦ 

VIPRF 

ir°7 

yMcuAVrfl wrwAX  : y M F M A y - AM P M A Y 

VIPRF 

1 C9fl 

VIPRF 

icgg 

VIPRF 

1 100 

iir^ 

VIPPF 

1101 

IP  ( T^l  IT'- , 20 . IS  AN'DL  ) GC  tq  PPT 

VIPRF 

1102 

(IFLITE.N^,  inurrj)  rr  jp  25  7 

VIPRF 

1103 

VIPRF 

1104 

VIPRF 

1105 

11'5 

» 

VIPRF 

1106 

r 

piJFFF.  7 - TLPN  PFAGT  • 

VIPRF 

1107 

r 

* 

VIPPF 

1108 

r 

VIPPF 

nog 

IL  PJZ  1 ( 1 ) = 1 '•HrENJ7r  P FPE  i IL  lUF  1 ( 2 ) = 1 r WOMENOY  pp 

VIPRF 

1110 

111"' 

1 L 7f  F 1 ( ^ > = nHSP-nT  Al  TR  HLINSI  (4)  = ICWANSFFR  F'JH 

VIPRF 

nil 

TL  lUP  1 r ) = ; HOT  7C*'' 

VIPPF 

1112 

17  TTLl  ( 1)  fh  (au‘^P‘^7  Tt'  4ITITL1  (2)  = IHHRN  PPASDS 

VIPRF 

1113 

VIPRF 

1114 

1XL0=FLFXL“'  . ? YHI-'^UPyHI  ?SnHI  = PUPPHI  «M-3H0f^T 

V I°PF 

1115 

11  1" 

PALO=rLPrL'’  <^SAHI  = PUPAHI  TSOOLTArBUPC^^L  S SF^l  r=  PtJFF^L 

VIPRF 

1116 

VIPRF 

1117 

r- ;nc  c y- yc ) 

VIPRF 

1118 

cnTirr:  = rnrv3L  (^■C^P>  MF  (Q.GT.  (NDDP-1 ) ) GO  Tp  2?Q 

VIPRF 

111° 

VIPPF 

1120 

112“ 

TALL  ^rFPLXK(r,PELPn"’,r.  ,yi,7,SBTFn,rn9VAL»NnD°) 

VIPRF 

1121 

VIPRF 

1122 

->  7 l 

':P7FP=  ri|F*"\y4-cPTPn  ^IF  (GPTFn,  rn,<50FLT  A)  S P 7F  0 = 1 , 0 1 ♦ «^np  L7  A 

VIPRF 

1123 

■"P  (S^TFP  ,P7  ,SC"’LTA)  ^0  '"O  ^47 

VIPRF 

1124 

VIPPF 

1125 

11  2^^ 

HILC(n  = PT  tsirs'c  1)  = -1  .7  S3XHI  = 0.167  ?SAHI  = 2.C  ?SF7HI  = 3C.0 

VIPRF 

1126 

Scrftj^^-cnFLjA 

VIPRF 

1127 

FCP  = PP^P  ’PXHT^GF^hT  <rG'^7Ml=PPS/FXHl  7 PR  0 = S X L 0 *3F  7L  0 

VIPRF 

1 128 

CALL  '‘-TA(crHI,Pn«-LTA,<^nTF0,PyHI,SAHI,FR0,PF7MI,SIGN(l),HIL0(l)) 

VIPRF 

1 129 

GC  70 

VIPRF 

1130 

11  7'. 

VIPRF 

1131 

7)4? 

•^ILOID-G.  «GIPU(1>  = 1,:  5;FCS=3XLn»SF7LC  rSPPA  Y = <^nTFD 

VIPRF 

1132 

ScZMTrFC'^rVF^FCG/SYHT  '•P’PrFHIMGF 

VIPRF 

1133 

PALL  7A(S  PL  C, GOT  Fn,srFL7A,SXL0,  SAL0,FPn,cP7Ln,  SIGN  <1), HILO  (1>) 

VIPRF 

1134 

PC  IP  253 

VIPRF 

1135 

ll-:c 

VIPRF 

1136 

VIPRF 

1137 

'' 

VIPRF 

1138 

r 

» 

♦ 

VIPRF 

1139 

r* 

• 

TAX c -off  phase  * 

VIPPF 

1140 

11  4r 

'' 

* 

* 

VIPRF 

1 141 
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prorR/i*'  '»ip^F 

7t/7'H  or>T  = l 4,5+*‘14 

CP/16/77 

13.11. 

r 

VIORF 

114? 

??  *■ 

*^F  (IFLIJr  .vr,  iTA'-'Or)  Tr>  ?n2 

VIPRF 

1143 

ILT^*'’!  (D-IOHFTRST  *ILIMFi  (?)  = irHLA';F 

VIPPF 

IHi* 

ILTK':i  (l)-l'’Hr  C Mnnr,vr  ?TLI^'El(41  = lCM3TICflL(H-') 

VTPRF 

1145 

11 

JIT'LL  1<  1 ) =1:H  (Tft‘'«'OFF  c ?ITITL1  (’)  =FHHASE)  ♦ 

VIPPF 

1146 

VIPPF 

1147 

v = - It  B , ^ ‘■XHF*^Ay  = -l  29.  C 

VIPRF 

114a 

FXLC=TA»<XLO  ; SVHI  =T  AW'vhI  $S9LO  = TA<9LO  ♦SBHTrT  A^PH  I 

VIPPF 

1149 

= Ai.r  i sAHT=t  Aw'AHI  ?S  A K = T A*^  h A X «M  = 2HrT 

VIPRF 

1 150 

11  fn 

VIPPF 

1151 

CF-»LC=F^'/*^XLn 

VIPPF 

1152 

FFTMIr^r  «r\jr*FkV<?VWI  ?F'^S  = '=‘^' 

VIPRF 

1153 

VIPRF 

1154 

r-0  TO 

V IPpp 

1155 

11 

VIOPF 

1156 

r* 

VIPPF 

1157 

r 

♦ 

VIPRF 

115a 

r 

l^nctnc  • 

VIPRF 

1159 

r 

• 

VIPRF 

1150 

11  fr 

r 

VIPPF 

1161 

25’ 

IF  (IFL  ITF  .\r,  HAND  m TO  ?5F* 

VIPRF 

1 16? 

ILT^T  1 < n = lCHSFOn»'D  'TLI^’FI  ( 2)  = 1 OHEL AGE  ‘^*'ND 

VIPRF 

1163 

iiiN'T!  (o)  = i:hi»''g  '^ilim=’i  (4)  = iphftical  f h^) 

VIPPF 

1164 

VIPPF 

1165 

itttli  ( i>  = i':h (lanptng  ^ eititlk?) ^fhhase) 2 

VIPPF 

1166 

VIPRF 

1167 

yMP»-/»  y r - If  ? , i.  ‘:XMF»^Ay  = -l  xn,  r 

VIPPF 

1168 

VIPRF 

1169 

'■yLC=ALNXLC  JSXHI  =ALK'X^^I  SSPLO=ALN0LC  SS  BHI=  A LNPHI 

VIPRF 

1170 

ll-n 

FALOrALF'ALr  :GAHT  = alNAMI  ^-S^F  AK's  ALN^AX  »H  = 2H0L 

VIPRF 

1171 

SF’LO-F  ^t/^XL  r 5 

VIPRF 

117? 

rFTH];rrr;wr\,'’*F"N/<*YMI 

VIPPF 

1173 

rq  TO  2*^’ 

VIPPF 

1174 

VIPPF 

1175 

ll-*^ 

VIPPF 

1176 

/• 

VIPRF 

1177 

• 

VIPRF 

1178 

n 

1U5DUL"^'0"  cua3»r  * 

VIPRF 

ll‘^9 

r 

* 

• 

VIPPF 

1180 

1 IPO 

r 

VIPPF 

iiei 

2 *;  *: 

ILTNE  1 ( 1)  = lOnrcNTFP  r=>-  SILIM-K?) -ICWO.  OF  S(F) 

VIPRF 

1182 

IL  1 ( T ) = 1 CHFFR  LF  A’’^^  'f  I L IME 1 ( 4 ) = 1 C HQ S . T LR9 ULF 

VIPRF 

1183 

TL  IK'L  1 (5  ) = 1 OHKrf.  ( MF  fOL  T I L INE 1 ( 5 ) = 1 C HL- CF  F CKLV  ? IL  I F’F  1 ( 7 ) = IH ) 

VIPRF 

1164 

I T TTL  1 ( 1 > = 1 ''H  (LPN  FR»'0,  ^I’l'^Ll  (2)  =1CHATMC5.  TURB 

VIPRF 

1185 

11  p*". 

11  TTlI  » = 1 'HIJLL^'Or  viTITlI  (4»  =4HS6)  « 

VIPRF 

1186 

VIPRF 

1187 

SPMI  = TrPHl  iO  AHI  = T^'AHI  SS'^^HIrFN  TF'  = 7MCTf^ 

VIPPF 

1188 

F^'^rFD-O  VT  ♦’■OFC  r^XMI=F0S/SF7wl 

VIPRF 

1169 

VIPRF 

1150 

licr 

FkO  = 3FZHT  • yi=FR^/SP7MI 

VIPRF 

1151 

y^rPi-CTA V 2 (2. C*9P MI* (yi»*SAHI) ,l,u-xi»yi) 

VIPRF 

1192 

X3  = ni-AT  AK2 (?.C*S^HI* ( FyMI**SAHI)  ,1 . P-SXHT*SXHI) 

VIPRF 

1193 

SO;Ay=TpRrF-?:,3*rLnPic(X2/y3) 

VIPRF 

1194 

VIPRF 

1195 

iirr 

VIPRF 

1196 

9 P 7 

PRINT  2Fl,Ty 

VIPRF 

1197 

2^1 

pO^naT (1 H- ,*P ARANFTFF3  THE  SPECIAL  fuNOTIOK  FOP  S (F)*/4iy,A2) 

VIPRF 

1198 
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12''C 


12C5 


12  ir 


121^ 


12  20 


1225 


12^n 


1 o “»r 


12»0 


12^'=^ 


1 ? S'! 


PRorpftf* 


'^k/7k 


0PT  = 1 


4,F  + i4l4 


08/16/77  13.11.28 


II  = 5H^  (F)  ?J=1HM  ?DPIM  352,II,SP»^AK,II,IFLAK^(1)  ,IX,J,IX 

F0P»<AT  (17V,A5  ,*  = » ,»^12.  ^joX^^MAXHUM  VALUF  CF  * , A5  ,*-DP.  , F0R»  , 

If  I n, ♦type  airCRAFT»/18X, A2,1X,A1,37X,A2> 

IF  (IFlTTE.^r,  IPlJFt-T.AN^.^nTFn.LT.SOCLTA)  GO  TO  257 

PPI^'T  3PC,^FLC,S8MI,SXL0,<;xHI,SF7L0,SF7HT 
PRTKiT  44  1,FCS  , (IL!MF.1(J)  , J=l,7) 

PRINT  42^,'fLC,SflPI 

IF  tlFLTTE.'^r.  IPU'^ET)  OPIMT  254 , SOEL  TA  , FM  INGf  , FUFMAX  , D , XF 
'’ri,  F0R*-AT  (1u-,ic;y  ,*nELTA  =*  , Fl  2.  2 , 6X  , ♦ VA  LIE  CF  S (F)  AT*, 

1F6.1,*  H7.*/21X,*C*,'’9X,  ♦PT^/ 

2tt7X,*2* , 12X ,*-4*,PX,*2  2*/16X,*S  ( F ) • =* , F 1 2 , 1 , 6X , * M AX IHUM  VALUE  OF 
3 S (F)  (WHtN  C = 0.)-DP.P"  1.0  G /HZ . /RE . ( ?X 10  OYNES-CH.)  /PZ.*/ 
417X,*nT  ►^♦,-»flX,*Pl  H*// 

521Y  ,*r3»  ,C|?,  2,6X,*DIFC(rpEMrE,X  -X*/F3X,*FT  E*/ 

E20v,^y  =*,P12.2,6X,*P  f-ISTANCF  FROM  THF  LFADING  EDGE  OF  THE  FUSELA 
7GE*/21X  , ♦r*  ,1  cv  ,♦  f EROnvriAMir  pR0FIlF(FT.)  TO  THE  CENTER  OF  THF  WIN 
8G  OHCRF^) 

GO  TO  2fi0 

ocy  ppTMT  ?E , SFHI  ,SXHT  ,CF7MI  , S AMI  , FOS 

?ET  FOR^'ATC^^Xj^P'z*,  F12.  TjSXj^SLOPE  FACTOR,  HI  GH-FREO. ROLL- OFF*/ 

12CX,*y  » = ♦ , = 12. 7,6V, •normalizing  FRE 0 , P A T 1 0 , HI GH -FREO . ROLL  - CF F * / 
2?CX,*F»  = *,Rl’,?,RV,*LC''ATnR  FR  EQ  . , H I GH-F  R E 0 . R OL  L -OFF  * /?  1 X , * 0 * / 
31Py,*AL'^Hr»  = * ,Fl^.-»  ,f  Y,»rORM  F ACTOR  , HIGH-FRFO  ,r0LL-0FF*/ 

4?Cy,*P  =*,  - I2.:’,6v,^r-^'TIR  ‘^REO,  OF  TRANSFER  FUNCTION  (H7.  ) */ 

521Y,  *FM 

PRINT  25  4 ,^Pc:LTA,FMI^'G'■,  SOELT  A , BUFM  AX  , D , XF 
PRINT  2 6''  ,'=PTFC,n,SPLLTA  ,SPTFn,FRO 
9c-  FO'^^fTdH-, 

12GX,**' OTF  iSINr*^  S (F)  -*,Gi2.5,*  COPRE  SPONC ING  TO  D = *,G12.5/ 

2-»2X  /2EX,*TF  L'"SR  THAN  OLL  T A=  * , G 1 2 . E * ONLY  THE  HIGH-FRLO.ROL 

■*L-rFF  rOPTICN  ♦/2''X,*OF  THE  S(F)  TFAHSFFR  FUNCTION  IS  UEEO  IK  CALC 
4ULATIKG  r (P)  .♦/70X ,*q !♦ /opy, * (S(F) =* ,G12.5 ,♦  A^  F = X*,RH*F  =,G12.5 
5*  HZ. ) */52X ,* 0*) 


H(  P ) 


YY=PS  *T  F (7S.  GT.R'^^^AY)  XX  = RFHAX 

PALL  TFR^LIK(Xy,Xl,PPVAL3(l) , RSVALS , 1 , DELPS , ORRS , NPSV AD 
CALL  '^PROi:K(yx,vi,RS'i.''LC(l),RSVALS,l,F7HFHI,  FOPIHF,  NR5VAL) 
Fpr^P  7HFHI 


AKrl.r  * IF  (WE. L*^.  2.5)  GO  TO 

fK  = r.E3  ^T'^tNE.G- .?ar  , C)  OO  TO  320 

on  31  r j = 

IT  = J -^virw-  w-c  J) 

IP  (WE . LF  . Vi ) GO  TP  31P 
11*  PCKTTM'P 

7D  fX-VALy(II)MW=-Xl)*(VAL<(II-l)-'(ALK(II)  )/(WPX(II-l)-yi) 


VIPRF 

1199 

VIPRF 

1200 

VIPRF 

1201 

VIPRF 

1202 

VIPRF 

1203 

VIPRF 

1204 

VIPRF 

1205 

VIPRF 

1206 

VIPRF 

1207 

VIPRF 

1208 

VIPRF 

1209 

VIPRF 

1210 

VIPRF 

1211 

VIPRF 

1212 

VIPRF 

1213 

VIPRF 

1214 

VIPRF 

1215 

VIPRF 

1216 

VIPRF 

1217 

VIPRF 

1218 

VIPRF 

1219 

VIPRF 

1220 

VIPRF 

1221 

VIPRF 

1222 

VIPRF 

1223 

VIPRF 

1224 

VIPRF 

1225 

VIPRF 

1276 

VIPRF 

1227 

VIPRF 

1228 

VIPRF 

1229 

VIPRF 

1230 

VIPRF 

1231 

VIPRF 

1232 

VIPRF 

1233 

VIPRF 

1234 

VIPRF 

1235 

VIPRF 

1236 

VIPRF 

1237 

VIPRF 

1278 

VIPRF 

1239 

VIPRF 

1240 

VIPRF 

1241 

VIPRF 

1242 

VIPRF 

1243 

VIPRF 

1244 

VIPRF 

1245 

VIPRF 

1246 

VIPRF 

1247 

VIPRF 

1248 

VIPRF 

1249 

VIPPF 

1250 

VIPRF 

1251 

VIPRF 

1252 

VIPRF 

1253 

VIPRF 

1254 

VIPRF 

1255 
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125*^ 

12"  C^VJPHI=A»'*F'»WFHI 

VIPPF 

1256 

F7HrLrr27cr,  04T/0,  C36  HC  (CATGRY. ’^0, 06)  F 7HFL  0 = 35  0 . 0*  T /C  . 0 36 

VIPRF 

1257 

VIPRF 

1258 

VIPRF 

1259 

XMPLC  = >XHFLC  SXHFHIsXXHP’HI 

VIPRF 

1260 

i?^r 

X1  = yHFL0*F7HFLC  ?X2  = yhfhi*F7HFHI  ? I F ( X?  . GF  • X 1 ) GO  TO  32'^ 

VIPRF 

1261 

C07'?T  = '],  025 

VIPRF 

126  2 

VIPRF 

1263 

171  XHPLC^XHFLC-OCNST’XHPLC  ^XHFHI=XHFHIfCONST*XHFHI 

VIPRF 

1264 

IF(XHFLn,rT.i.oi  rn  to  121 

VIPRF 

1265 

XHClc=1.f  »XHFHI=F7MrLr/P7HFHI  SGO  TO  325 

VIPRF 

1266 

VIPRF 

1267 

*»’1  IF(XHFHI  .LT.1.0)  rO  TO  322 

VIPRF 

1260 

XHCHIrl.r  TXHFLOrf 7HFHI/F7HFL0  SGO  TO  125 

VIPRF 

1269 

VIPRF 

1270 

127" 

121  X1=XMFL0*p’HFLC  » X?  = XHPHI»F7H‘=‘HI  S I F ( X 2 • L T . X 1 ) GO  TO  321 

VIPPF 

1271 

XHPLC=Y2 /FImfLO 

VIPRF 

1272 

VIPRF 

1273 

VIPRF 

1274 

rELWL=C.  ^TF(WC .LF .IC.C)  GO  TO  340 

VIPRF 

1275 

127*- 

IF(CAT^PV.^P.C19.  AMC.CA'^GRY.N5.C6)  GO  TQ  340 

VIPRF 

1276 

IF  FWt  .GF  .1  CC.  ) GO  TO  l**! 

VIPRF 

1277 

gall  TLFriTV(KE,OWF 103,10. , XI , 0 , OEL WF , W£ 1 0 0 , N 1 0 C > 

VIPRF 

1278 

GC  TO  24 

VIPRF 

1279 

13}  IF  (WF.GF.  i:00.)  GG  TO  ’IG 

VIPRF 

1280 

126'' 

CALL  TtRPLTKC  w«:,nwEl'<,10  3.  ,X1,  P,OEL  WF,wriC00,K’WFlK) 

VIPRF 

1261 

GO  TO  ?4C 

VIPPF 

1262 

111  rELw:  = UE 5c  jP  (0)  ♦IF(W£,G-,WFMAX)  GO  TO  340 

VIPRF 

1283 

CALL  1LF  FLT^(^^[  ,OW15K,  1 0 30.  0 , X 1 , 0 , OF L WE , WF50  0 0 , NWE5K » 

VIPRF 

1264 

VIPRF 

1285 

l?f»r 

VIPRF 

1266 

It.*  cf:Lws=:.  «ip (ws.lf.c.f)  go  to  350 

VIPRF 

1267 

CPLWS=20.*lLOG13<r.5/WS) 

VIPRF 

1268 

VIPRF 

1289 

VIPRF 

1290 

12<-1 

35''  IF  (CATGPV.FO.Ce)  XHFMA  y=xmFmax  f 7. 0 

VIPRF 

1291 

XHPnCF  = XHP»'Ayi-rcLWrfrPLWPfOELRG 

VIPPF 

1292 

IF  (I^L  ITr.Er.  isanol  ) GC  "''0  351 

VIPRF 

1293 

GRIMT  2t.e  ‘PPIM  351,TOLANr  ,iflITE 

VIPRF 

1294 

VIPRF 

1295 

12<“‘^ 

151  FO  AT  (1  F-,  7M*****»*,1A10,1H,,  aid, 7 H* 

VIPRF 

1296 

151  II=4Hh(F>  IFPIFT  361,II,inLAMK 

VIPRF 

1297 

•*«!  FC’MA'^  (lF-,*f?APAMrTtPS  OF  THE  TRANSFER  FUNOTICN  PpPt  • , A 1 0 /4  3X  , A2  ) 

VIPRF 

1296 

PRINT  IP*'  ,XMF>-AX  ,nELPS,OGLWL,Ol.LWG,  XHFOOR 

VIPRF 

1299 

IF"  Fn'’*'AT( 

VIPRF 

1300 

ncc 

175X,*2^  , j3X,i-t.i,  eY,*2  ^•/17X,*H  ( F ) =*  , r 1 2 . 2 , 6 X , *M  AX  TVl'H 

VALUE  CF 

VIPRF 

13C1 

2 H(F)-rn,p=,  i.n  G /*^7 , , RF,  (2X 10  DYNES-GH.  ) /HZ.*/1  6X , ♦M*/ 

VTFRF 

1302 

2iev,*0-L  F =»,Pl2.2,6X,»GORR'-0TinN  FACTOR  TO  H (F)  FOR  P 

(PB.I^/ 

VIPRF 

1303 

321X,*5*,41'<,»»'*,RX,»S*/ 

VIPRF 

1304 

416V, *rEL  W =*  ,F12.?  ,6X  ,*COPRr.CTION  FACTOR  TO  H (F)  FOR  W 

(CP.) ♦/ 

VIPPF 

1305 

iU5 

521X,^r*,41i,*«^,QX,*F»/ 

VIPRF 

1306 

616X,»r‘*L  W =»  ,Fl?.2,ex,*CORR£OTION  FACTOR  TO  M (F)  FOR  W 

(C6.) •/ 

VIPPF 

1307 

e21X,*'-*,4!X,*»'*,OX,*Fi/ 

VIPRF 

13C8 

017X,»h  (F)=*,fi2.  2,ev,*C03RFCTLn  VAHIC  OF  h ( F)  »/ IRX  , , 

2X, 

VIPRF 

1309 

• »r*,3cv, 

VIPRF 

1310 

1 Tip 

VIPRF 

1311 

IF  (WE.LP.l".'.  ) GO  TO  17G 

VIPRF 

1312 
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IF  f^AT^Dv,  Cf,  riT.np.ri'^^i^v.  F0,C6)  f-O  TO  375 

VIPRF 

131  ^ 

T^'T  ^ ‘ 4 

V IPPF 

1 314 

■^4  0 

Fn?vfl'"  (1  HC  ,•^OTr  ? T^^::  ''OP^^^OTION  FATTOR  fop  w is  SFT  EOUAL  TC  7ER0 

VIPPF 

1315 

1 7 

1 f=\iru  THfiri-  w >10  PCUNn5.»/73v,»F*  ,3Px»’F*/) 

VIPRF 

1316 

VIPPF 

1317 

VIPRF 

1318 

PHPMIr-.F  riF  (PS.  . ) PHFHI  = 0.3 

VIPPF 

1319 

PRINT  ■‘^'',[:HFLC,^HFHI,XH'^LO,yHFHI,F7HFLO  , F7HFMI 

VIPRF 

1320 

1 ^?0 

■'e  ' 

FO-  ( 

VIPRF 

1321 

l?rv,»F  =*  , = 12.3,F.y,  »SL^'*”  ACT  OR,  LO  W-pRKO  . ROLL-nFP»  / 

VTPPF 

1 322 

23.  V,*E  * = ’,‘"1'’.  ?,'6V,^SLr'^’  FACTOR, HIGH  F R EP  . RC  LL -OFF*  / 

VIPRF 

1323 

3rnv,*y  r*  '5, 7 ,P,Y,  •r.:Cf"MALI7ING  FREn,RATIO,LPW-FRFn,ROLL-rFF*/ 

VIPRF 

1 324 

<-2CV,*v»-4,  = 12,3,6v,*N'G'^HALI7ING  FRF  p , R A T 1 0 , HI  pH-FF  FO  . ROL  L -CF  F*  / 

VIPRF 

1325 

11?^ 

52jy.*F  =*,'^12.2,hX  ,*LC^A‘rOP  FREQ.,  LOW  FRF".  ROLL-OFF*  721  X , *0  */ 

VIORF 

1326 

e7:v,*F»r:*,  = l?,?,6v,*L0PATOR  FRLQ.,HTGH  FRrQ.RnLL-OFF*/21X,*0’) 

VIORF 

1 327 

PRINT  flK,  FRO 

VIPPF 

1 328 

7 0 -» 

rooM^T  , p,  cy  ,»r;oRRpPTIO^■  FACTOF  TO  F»  FOR  V (F»rK  X *, 

VIPRF 

1329 

lFa.l,*)*/F7X,*C.*,Fy,*r*,’X,*3*) 

VIPRF 

1330 

^ Jin 

PRINT  4^5  , ‘'PFLf,  ^HFHI 

VIPRF 

1331 

VIPRF 

1332 

VIPRF 

1333 

n 

VIPRF 

1334 

n 

* 

* 

VIPRF 

1335 

13'^ 

r 

V 

H (C  ) • 

VIPRF 

1336 

r 

* 

• 

VIPRF 

1337 

'' 

V IPRF 

1338 

IF (IFL TT=  .Nc,  iSANfL)  GC  TO  356 

VIPRF 

l3-<9 

PRINT  246  fpRIN'T  55  3 , 1 pL  AN!  , I ^L  ITF 

VIPRF 

1 340 

l-JL- 

IP- 

IIr/»Hf-(F)  JrpiKT  3P'»,  IT,  IRlAnx 

VIPRF 

1341 

FZ*'FLC  = F ♦‘‘^LC  »F7HFMIr^»'^l^I 

VIPRF 

1342 

VIPRF 

1 343 

CFLP^-C.  TIP  (RP.rr  .2. ) GO  TO  570 

VIPRF 

1 344 

CALL  PLAP  (yx,  CY'-FRS,^  . ,0"LPS,ODMPRS,N‘^fRG) 

VIPPF 

1345 

1 

VIPRF 

1 346 

» 7 

C'^LNS=C  . l^’PPLWS 

VIPRF 

1347 

VIPRF 

1 348 

IF(r.ATGRy.:''.P6)  YMrMf\y=yMPMAX42.0 

VIPRF 

1349 

yMcpcR  = VWF».fty|.FrLw54.r,rL?<5 

VIPRF 

1 350 

17  c- 

VIPRF 

1 351 

cdtk'T  ■»‘^p,x^P>^AX,nrLWF,orLR<:,x^FCOP 

VIPRF 

13F? 

PRINT  ^ ^ , - ^FLC  , ONRHI  , XMCLO  ,XHFHI  ,F7^'FLO  , FZHFHI 

VIPPF 

1353 

•»  R“ 

FOPN/iT  r 

VIPRF 

1 354 

175Y,*2»  , ,* -4»,  py  2*/i^x,*H  (F)  =*,F12,?  ,6X,*hayIH|im  VALUI  OF 

VIPPF 

1 355 

1 7 cc; 

2 (F) -^0  ,F  , i.j  r /w7  ,/pr^  (2x  IJ  DyneS-On,  ) /H  7 . * / 1 F y , * h • / 

VIPRF 

1356 

51FX,»’''-L  W =♦  , F12 . ^ , 6Y  ,*  OOPprcTION  FACTOR  TO  H (F)  FOP  H (CO.)*/ 

VIPRF 

1357 

4’lv,*S*,41Y.**^*,0Y,*S*/ 

VIPRF 

1 358 

5l6Y,*r‘L  P =*  ,F1'’.'’ ,f.Y,*OOPRL'CTinN  FACTOR  TP  (P)  FOR  P (CP.)*/ 

VIPRF 

1359 

F?lV,*«‘*.41Y,*N*,Oy,*<^*/ 

VIPPF 

136  0 

13fC 

7l7Y,»v  { F)  =*,  f12.  2,6Y,*00'‘RErTEO  VALUE  OF  ^ ( F ) * / i p X , *n*  , ? X , *C  * , 

VIPRF 

136  1 

P 3 Q y , ♦ V • ) 

VIPRF 

1362 

P9T»'T  ii  9 c , c , ArFMI 

VIPPF 

1 363 

VIPRF 

1 364 

VIPRF 

1 365 

136'^ 

r 

« 

VIPRF 

1 366 

n 

• 

♦ 

VIPRF 

1 367 

f' 

* 

L (P)  * 

VIPRF 

1368 

r 

» 

« 

VIPRF 

1 •»69 
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VIPRF 

1270 

l’7w 

MrlMr 

VIOPF 

1371 

TALL  ''LaC(V'=,ryMnCl,C.  , ^ORL  Fm  , OBMOPl  , NMQ  OE  1) 

VIPRF 

1272 

ir  fro''LF^,LT.-’l,  C)  rOFL'^Mr-ai,  0 

VIPRF 

1373 

yLF^^^  = yLP*'^'y♦fORLF^' 

VIPRF 

1374 

VIPRF 

1775 

IF  (IFLIT'.!^.  ISANPl)  ';r  TO  3*^^ 

VIPRF 

1376 

F9TNT  ?Ue  ’PRIM  35'^,IPL  ,IFLITE 

VI'^RF 

1377 

II=i4HL(F)  tppiM  3*'’ ,IT,  TOLAMK 

VIPRF 

1370 

J=:1H^  5^=1^  ?L=l'^r 

VIPPF 

1379 

‘^RIMT  39  “,yLFH«»X,  J,K,‘<',-:OPLFM,  YE,  IPLANE(l)  ,M,  J,M,  XLFCCF  , J,L,  J 

VI^RF 

13P0 

nfr 

10-  CQOMATC 

VIPRF 

1381 

f'X,’?  ^»/17X,»l  (F)  =»,  F12,2  ,^y,♦^'AXI^'IIH  VALU' 

CF 

VIPRF 

1282 

2 L ^F)-rjn^:,p-,  i , y G /H'' . , RE  . ( ?X  1 3 rYNES-r^.  ) /H  Z . • / 1 F X , A 1 , 2 X , 

A2, 

VIPRF 

1203 

3'»6X  ,fl1  / 

VIPRF 

1234 

Ai6y,*r‘L  y =*  jFi** ,2  ,«=  x ,*coRR‘^CTinN  ‘^ArTn°  to  l (F)  for  risTAhCF 

X 

VIPRF 

1205 

' = *,Ft,2,*  CK'*,Air,*  TVP"  AIRORAFT»/21X,A?,AOX  ,A1,  IPX  , A?/ 

VIPRF 

1206 

617V, *1.  (F>^*,F12.?,6v,»''ORRFOTEn  VALUE  OF  L ( F)  •/ 1 “Y  , A1 , 2X  , A 2 , 

VIPPF 

1307 

77flX,  11  > 

VIPRF 

1 280 

VIPRF 

1309 

‘^ZLPirrPK/’.''  ^F-»LFHI=2,  -‘♦FK' 

VIPRF 

1 29  0 

1 ■*<^0 

''L '^LC  = <'nLFLC  IFLFMimnLCHj  fxlFlOsXX  LFl^  ? XL  F mi  r X XL  FHI 

VIPPF 

12C1 

WIPRF 

1202 

“^F  (F?^.^.^.  :.  ) ^3  "^0  TR'- 

VIPRF 

1 397 

^LFHI=.,?-'  fXLFMIrG,-"'  »‘F7lfmi  = i,42»FN 

VIPRF 

1 394 

VIPRF 

1295 

\rcc 

jar  frtnT  3ftr  ,PLFLr,OLFMi, yLFLO,XLFHI,F7LFLO ,F7LFHr 

VIPRF 

1 296 

ILIN'El  (l^  = nHFTRc;T  QOOY  : IL IM  ‘ 1 ( 2)  = 1 CM  pTNOIMP  m 

VIPPF 

1307 

ILTK’FMT  ) = 1 ''MODE  Foc-olt  -^IL  IME  1 ( 4)  = BH'gCY  ( h7, ) t IlIMEI  (*^)  = IF 

VIORF 

1290 

IFFriFN  ^PRI^’T  441  ,F*’,  (ILIU^I  (TI)  ,IIr  1,7)  ,IFH 

VIPRF 

1299 

npTMT  47 r , aLFLF, ALFMX 

VIPRF 

14C0 

lu'-: 

VIPRF 

1401 

VIPRF 

1402 

VIPRF 

1403 

r • * 

VIPRF 

1404 

• L fF)  • 

VIPRF 

1405 

j4^e: 

C • 2 • 

VIPPF 

1406 

r ¥ ¥ 

VIPPF 

1407 

VIPRF 

1400 

IF  (F2r .cr, :, > go  to 

VioPF 

1409 

VIPRF 

1410 

IL  y n 

•"ALL  flic  (XE,CX*«Or‘’,'*.  , ''ORL  2^  , CRMOO  2 , OF  7) 

VIPRF 

1411 

IF  (rCFL2F.uT.-?l.  C)  ''nCL’F=-?l,  0 

VIPRF 

1412 

XL?FCp  = XL?FFX4-''ORL2F 

VIPRF 

1413 

VIPPF 

1414 

IF  (TFlIT F .xr. IpANFL)  OC  to  307 

VIPRF 

1415 

U!f 

rpTvj  JcpiNT  3F'»,ipl am*:,iflitc: 

VIPRF 

1416 

7q7  IlrCHL  (F>  Ck’riw^  «l  = 7MHC  SPRINT  3P3,IT,F' 

VIPRF 

1417 

PPT»*T  1°  S'<L7Fmx,I^,J,v,C0Rl?F,Y.£,IPLAUE(  1)  ,H,  Y,M,XL2FCR  ,K,L,K 

VIPRF 

1410 

VIPRF 

1419 

FL’FLr  = F2F/VL2FLO  ■^fl7pmI  = F7N/XL2FHI 

VIPRF 

1420 

lt?C 

P9TMT  1«C  ,^L2FLn,  PL2FMT,  XL'»rLO,XL2FHl  ,pL’FL0,FL2Fhi 

VIPRF 

1421 

VI°RF 

1422 

ILTN:'!  (1)  rlOHSEOO^’O  por  * I L IM  £ 1 ( 2 ) = 1 C HY  BEFDIMG 

VIPRF 

1423 

iltnl  1 n)  = i'’M“^n'r  FRrou  ‘Ilimli (4)  = 9MENrY (W7, ) stli^iei (?)  =ih 

VIPRF 

1424 

IFN=2^-*J  ^trim  u/  t,F7K,  (tlim-kii)  , 11  = 1,7), ifn 

VIPPF 

1425 

PRir’T  42E  ,al?flo  jAL’FHv 

VIPRF 

1426 
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VIP^P 

74/74  PPT  = 1 4,5»414 

OA/16/77 

13.11, 

VIPRF 

1427 

VIPRF 

1428 

IP** 

IFN=1HC  :!=  (C4Tr,RY.?^.r4<\)  IFN=3HC3A  ? IF  (P  ATGP  V . EO  . C4  » ) IF^  = 

3Hr3P  VIPRF 

14?<3 

ILINLl (1  ) =10HISOL^TOF  K ^IL IMll (2) = 1 OHATURAL  FRF 

VIPRF 

1430 

ILTNLI  (7)z1PHQUE*»pv  (M7.  SILIME1(4>  = 1H) 

VIPRF 

1431 

VIPRF 

1432 

VIPRF 

1433 

IF  (T^T'^R  Y.EP.  CIA)  PQ  jn  iqp 

VIPRF 

1434 

IF (CATGPY.FP.C 1R)  CO  bJC 

VIPRF 

1435 

IF (CATGPY.F^.CZfi)  PC  TP  431 

VIPRF 

1476 

IF  (CA  TGR  Y .CC,  P?'’)  PC  T*"  437 

VIPRF 

1417 

IF  (CATrpy  .cn.r.-^A)  P-O  442 

VIPRF 

1438 

IF  fCAT^RY.eP.C"*®)  PC  TP  435 

VIPRF 

1430 

IF  (PATGRV,  EP.PAA)  pQ  TC 

VIPRF 

1440 

IFCCATrpv.cp.r^n)  r.Q  jr 

VIPRF 

1441 

IF  rrATGPv,-p,r*->  r-o  to  477 

VIPRP 

1442 

IF  tCATGPY.EP.  r^)  PO  ^0  4"»7 

VIPRF 

1443 

VIPRF 

1444 

f* 

VIPRF 

1445 
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* 

* 

VIPRF 

1446 
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m 

PATtGCFY  lA  • 

VIPRF 

1447 
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VIPRF 

1448 

r 

VIPRF 

1449 

nEL4C  = C.  ^IF  (W^.LF.  1C. C)  PO  TO  410 

VIPRF 

1450 

IF  (W^  .L't  .210.  :)  PP  TO  4 jP 

VIPRF 

1451 

ciAAHT=i.c-  »r':Lwr  = -e. " 

VIPRF 

1452 

PP  TO  41P 

VIPRF 

1453 

4r-' 

CALL  '"LAPf^c,  rxci  A,  XIMPlA,niAAHI,ClAAW‘^,‘JClA) 

VIPRF 

1454 

PALL  '"LAP(W^,ry^lA,XIM^lA,nEL''»«’,PlAMWE,NClA) 

VIPRF 

1455 

4 1: 

n «Myr  = p 1 AM  AX  f PFL  wr 

VIPRF 

1456 

VIPRF 

1457 

IF  (PPPCT  l.cp.  0.)  Fr,CA^l  = ClAF>' 

VIPRF 

1458 

PI AF7L=FPr ATl/PlAXLn  i C 1 ^ F Z w= FCC AT  1 / C 1 AX H I frcrpCCATl 

VIPRF 

1459 

VIPRF 

1460 

VIPR*^ 

1461 

ILI^J*^’ ( 1 ) =1  "H  (pODIP^'lN'^  «TLI^!"2  (2)  = ICH  MCUNTEP  0 

VIPRF 

1462 

IL  TNP  2 C' ) = 1 :^'N  PoiMA^y  i;IlIME2(4)  = 1CHSTRLiCTU‘?- 

VIPRF 

1463 

IL  !► '"F  (p' > = 1 OHTmrooPM  ? ILIME'’ (6)  = oHOLA  TPFq)  <t 

VIPRF 

1464 

VIPRF 

1465 

IF  fPATGRY.KC.ClA)  r-C  T'^  41? 

VIPRF 

1466 

VIPRF 

1467 

r'L  A*^  = r 1 A.Mv-  ?XLO=riAXLC  *XHI  = 01AXHI  5'=LO=ClAPLO  3PMI=ClAnMl 

VIPRF 

1468 

Al''=P1AALP  'AHI=P1AA^I  ?p-^LP=C1AP-^L  5F7HI  = C1  AP'^m 

VIPRF 

1469 

r n TO  LL  r 

VIPRF 

1470 

VIPRF 
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41^ 

PRP.'T  ?46  -PRIM  ?53,IOLA^^C  ,IFLITP 

VIPRF 

1472 

IJrrMy  (P)  ^L  = 2^ir  3fl7,ii,i_  ^orinT  43fl,CATPPy 

VIPRF 

1473 

PRINT  4 2C,ClAMfly,XPLAV'-(l)  , DFL  , WF  , C lAHyp 

VIPRF 

1474 

^3RT^.x  3‘^P.PlAPLO,PlACH’-,^lAXLn»ClAXHI,ClAFZL»PlAP7^^ 

VIPRF 

1475 

L = -»HP1A  *c'TNT  44l,FrCATi,  (ILIMEI  (K)  ,ip  = 1 ,7)  ,L 

VIPRF 

1476 

PRTN7  42‘?,'’1  A ALO,ri  AAMX 

VIPRF 

1477 

VIPRF 

1478 

IF  (CATr'^y.£P.P4A)  PC  ''’P  44? 

VIPRF 

1479 

rn  TO  4-»5 

VIPRF 

1480 

VIPRF 

1481 

VIPRF 
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VIPRF 
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1486 
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VIPRF 
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4 71 

PE«K=r2A>'a*  ?XLO  = r?AXLC  SXHI  = fl?AXHI  fBLO  = n2AnLO  $BHI=C2A9HI 

VIPRF 

1488 

ALC=C?AALf  7AHI=n?AAHI 

VIPRF 

1489 

VIPRF 

1490 

IF  (FCmi.EO.  0.)  FrCATl  = C2AFN 

VIPRF 

1491 

FZLO=Frr:A’l/YLP  ^FTMIsF^CATi/xhi  «Fr  = FCCATl 

VIPRF 

1492 

VIPRF 

1493 

ILTNF2(1)  = 1CH  (SFPOr'PAPY  $ILINF2(2) -lOH  STFMOTIJRF 

VIPRF 

1494 

ILT^F?  (’)  = 1'’H  EOMTP.HCf  o'lLINeZ  (4I  = 1PHNTFC  ON  IN 

VIPRF 

1495 

114  ce; 

lLlNC?(5)rl0HSTRlJM!  NT  F 3 IL  I>'E2  ( 6)  = 1 C WANE  L , I S TL  . f IL INE2  ( 7 ) = 2H ) $ 

VIPRF 

1496 

GO  TO  440 

VIPRF 

1497 

VIPRF 
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VIPRF 

1499 

r 

VIPRF 

1500 
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VIPRF 
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« 

CATIGORV  90  • 

VIPRF 

1502 
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9- 

VIPRF 
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r 

VIPRF 

1504 

43’ 

PF  Ak-rTZ^wAX  ?XLO=r?''XLC  TXHI  = 02BXHI  ?PL0  = C2BPL0  SPHlrC2P«HI 

VIPRF 

1505 

AL0=C2nALr  «AHI=C?PAHI 

VIPRF 

1506 

VIPRF 

1507 

IF (Fcrni i.Fr. c.)  FcnATi=r2PFM 

VIPRF 

1508 

FZL0  = FCCAT1/XLC  « EZHIsF-j-aTI/XHI  3FC  = FCCAT1 

VIPRF 

1509 

VIPRF 

1510 

if’ir 

ILTNFi  (DttiCmfirft  INST  TILINEI  (2)  = ICHRUMFNT  PAN 

VIPRF 

1511 

ILTNf 1 (3) =lCHtL  RfFONAN  ^jlINEI (4) =7HCE ( HZ .) 

VIPRF 

1512 

VIPRF 

1513 

IL  INf2  (1  ) = irH  (FEOpwnAPV  j:IlINE2  (2>  =1CH  STRUCTURE 

VIPRF 

1514 

ILINu2  (’)  = 1CH  F^UIP.WOU  9ilimcj>  (A) -iCHNTEP  ON  IN 

VIPRF 

1515 

l*-!? 

IL  TNI  2 <5  ) = 1 '^wsiRfl.oAKTL  7ILIME2(6)  = 1 QH,MON-ISrL.  ?IlINE2(7)  = 2H)$ 

VIPRF 

1516 

ro  TO  440 

VIPRF 

1517 

VIPRF 

1518 

VIPRF 

1519 

r 

VIPRF 

1520 
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♦ 

VIPRF 

1521 
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« 

CATFGOFV  ’A  • 

VIPRF 
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VIPRF 
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r 

VIPRF 

1524 

44  ? 

xx=2H3fi 

VIPRF 

1525 

l*'?5 

rMirC’rnwl  ^XLP  = C’AXL'^  BALOrC^AALO 

VIPRF 

1526 

VIPRF 

1527 

IF  (Wr  ,gT  .!'*.«)  cn  TO  44-» 

VIPRF 

1528 

rf;aK=r|ANAx  iOLr)  = riADL0  5XHI  = C1AXHI  ?AWI=C1AAWI 

VIPRF 

1529 

no  TP  tt« 

VIPRF 

1530 

15  7( 

VIPRF 

1531 

(4  4f 

TF  ( wf  ,lt  . c)  0-0  tp  ^4^ 

VIPRF 

1532 
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VIPRF 

1533 

rc  TO  44>» 

VIPRF 

1534 

VIPRF 

1535 

If  75 
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CALL  ’'^PFLU  (WF,Vl,r3Wf  (1)  , C3WE  , 1 , PF  A X , C 3 A YHX  , NO  3 ) 

VIPPF 

1536 

PALL  TcRPLTV  (WF,xi  , C tvic  ( i ) , ri  WC  , 1 , P LO  , C3  AP  ,NC  3) 

VIPRF 

1537 

call  TcRolT^  < W«^,vi,C’WF(  1)  ,C3'-IF,l,XHI,C3AXF,Nr7) 

VIPRF 

1538 

PALL  T9RPLIN(WF,Xl,C3WF(l),P3Wt,l,AHI,C3AAF,NrT) 

VIPRF 

1539 

VIPRF 
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fC-rcr^T-  *Tr  (raTCRY.'^r.  04A)  rr  = rnCAT?  ? IF  (»^F  , rn,  c . ) FC=^3AFK 

VIPRF 

15  42 

F7La=F^/XL'"  f c7HTrrr /vui 

VIPRF 

15  4 3 

VIPRF 

1544 

ILT^'‘^?  f 1 ) ^i:h  (ftjtp^'^m  (2)  = iom  marc  HP-jm 

VIPRF 

1545 

i^L3 

IL  TN*:^  ( ' ) r 1 CMT  cn  0‘'  ISC  ‘ILIM7?  (4)  = ICMLfiTFH  SMIL 

VIPRF 

1546 

TL  2 f «■  ) r 1 TMF  Qo  fAPY  ?ILIM£?  (6)  =2H)  S 

VIPRF 

1547 

rc  jr  UL  r 

VIPRF 

154fl 

VIPRF 

1 P4Q 

VIPRF 

1550 

■1  C C 0 

VIPRF 
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r » 

VIPRF 
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* 

VIPRF 
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r r T r n r c V 7 r • 

VIPRF 

1554 

r • 

VIPRF 

1555 

1=:  r" 

VIPRF 

15«=6 

y Yr  3 “3 

VIPRF 

1557 

VIPRF 

15Cf) 

IL  TM- 1 f 1 ) = 1 •'HLCW^  FT  cHr  S J L IM  - 1 ( 2 ) ^ 1 C ml  F FIRST  n 

VIPRF 

1559 

ILT^T  1 ( ■"  ) = 1 :•MF^'0T^r.  mq^'  ' I L I^''"  1 ( 4)  = f HE  (H  Z . ) 

VIPRF 

1560 

1*^  tn 

V IPPF 

1561 

IF  rw” . rT  . 1 ' .- ) sn  TO  445 

VIPRF 

1562 

‘■'L''  = C‘' •-•L  r ^EHIrC'  f^HI  JXLOrOEXLO  ‘XMIrCcxMI  5flL0=C5ALO  »AHI=C5AHI 

VIPRF 

156  3 

Ft  0*^=-^  . C-2.U*(W'"-1 

VIPRF 

156^ 

-1 

V IPRF 

1565 

1P 

4 4 

cr  TO  447 

VIPRF 

1566 

"LC  = C3Fr3  (^  7->)  « nHT  = CT0rn  (►jr'3)  FXL  0=  C 7 fx  ( MC  ■» ) « XMlrp  x PXF  ( NC  7 ) 

VIPRF 

1567 

ALC  = S'’F  A (KC ’)  » flMT  = r (N03)  «PEAK  = C5PYMX  (NC  3) 

VIPRF 

156P 

'"-0  TO  44c 

VIPRF 

1569 

CALL  T'FPLU(WF,vi,n7-^t:(i),r3-^F,i,orAY,r3RYMX,KP3) 

VIPRF 

1570 

If 

CALL  ^~PFLIK(Wl,X1,03W''(1),C3WE,1,flC,039G,NC3) 

vippr 

1571 

CALL  TrpptTNfW!.  ,Xi,C^Wr(l)  ,C3WL,1  ,FHI,C3RFF,Nr-») 

VIPRF 

1572 

FALL  TFkPLIK  (H[-,Yl,P3W'^(l),n3MF,l,XLC,039X,NIO3> 

VIPRF 

1573 

CALL  '''^^FLIN(uir,Yl,P7wr(^),p3uic,i,xHI,n3PXF,Nr3) 

VIPRF 

1574 

FALL  T3PFLTN(W%yi,C7W^(i),07w«^,l,ALr,C3PA,NO-*) 

VIPRF 

1575 

7C; 

call  T^f?rLTF(WE,Xl,r;-^W-(l),P3WF,l,AMi,C3PAF,Mr3) 

VIPRF 

1576 

VIPRF 

1577 

VIPRF 

1578 

146  1 

FP^PrrfTl  • IF  (r  ATFOV.  r r , ) FP  = rnrAT?  f IF  (FO  .00,  C,  > FC  = C3FFN 

VIPRF 

1579 

f?L0  = F0/XLF  ' F-'HI -Fn/X'-«I 

VIPRF 

1580 

ir  pn 

VIPRF 

1581 

IL  T^'‘^  2 ( 1 ) - 1 C H (FO'IIPMF^JT  ' 1 L IME2  ( 2 ) = 1 C M HARP  MP'JM 

VIPRF 

1582 

iLnTC  ( • ) = 10M^  FO  PT!  r-CN'  nLIM7?(4)  = lCM-iSPLATrn 

VIPRF 

1583 

ILIMrp  (r^ -1-HCu-lf  pr  P tj  l 1^  £3  (c, ) = c h AOK  ) « 

VIPRF 

1584 

PC  TO  l U r 

VIPRF 

1585 

ir  /5C 

VIPRF 

1586 

VIPRF 

1587 

r • 

V IPRF 

1588 
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* 

VIPRF 

1589 

r*  « 

p(\7-rrpvr  * 

VIPRF 

1590 

i=^cn 

r • 

» 

VIPRF 

1591 

VIPRF 

1592 

4^7 

fELWF  = :.  '^IF  (WE  .Ll  .1.?  ) 00  TP  436 

VJPRF 

1593 

r-LMFr-fS.'-  ^IF  (M-.PF,  13,  ])  no  TO  436 

VIPRR 

1504 

PLLi^'L  = -6.F-2,,*(Mr--ir'.:)  m. 

VIPRF 

1595 

1 f 

nFfl(<-pr»^/»y4nr.LV.£ 

VIPRF 

I506 

CLF-PfELP  :FMI=COrMI  fyL0  = ^FXLn  i.XHI  = C5XMI  TALC  = OFALn  «AHI=CfAHI 

VIPRF 
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IF  (FCCfiT  1 , :r , j ,)  FrrflTi  = ''ptrKj 

FZLOrPf  CM! /XLF  TF7WI=pCCAT1/XHI  TFC  = FCCAT1 


IL  p'i?  ( 1 ) (LT^'^HT  WFT  ?ILlM€e  (?)  =lCHnHT  EOUId, 

ILTMF?  (3  ) = l':HMrUMT:n  OK’  SILIM”2(h)  = lOH  OLIVARY  S 
IL  INcp  ('*' ) -1CWTPU''TMRF  o ciLINr?(6)  =1''HY  PRAC^FTS 
ILTN».  ? (7  ) I 

ILTMF  1 (1  ) =1?HL'"K'“5T  MAT  ' IL  IMEl  ( 2)  = 1 CHURAL 
ILI^'E  1 (3'  = 1:h»:mCY  of  3F  (4)  = 1CHAC‘<‘^T  ANR 

ILTNiil  f5)  = !rHE^UT'^M«-K-^  » IL  1 (6)  = 1 C HCO  mp  IN  A TI P 

I line  1 ( 7 ) (»■'.  ) 

ro  TO  t-ur 


If  jm  im  ^ }^  )m.  if.  * 

* 

» PAT^PPPY  P 

m 

'4T7  IF  (IFLTT  E ,NF.  ISANPL  ) ORIMT  ?4o 
FRir-T  i.3^ 

UT'I  FOT^A'^  (lh-,*TRANFFrR  FlM^TIO^J  ^OR  CATEGORY  Si  F.OUIP . HPUNTEC  ON, OR 
1 MTApHrn  TC  FPR^APP  ICO^IMG  RAOAR  PILK-HE  AOP  • /// 

?•  PPR  THTE  CA'^pGOFV  Y(F)=1  AT  All  FPL0UFNPI'='S  so  that  P(F)=y(F)G(F 
3)  = F (P ) .’  / 

4*  PHA^r-s  ARE  MAOr  FOLLOWS  WHEN  THIS  CATEGORY  IE  SPF P I F IE C T ♦ // 

E?c  x,*H  (F)  ?7  .C  OR  IS  fOr'^O  TO  H (F)  »/4f  X,^^  M^/ 

6??x,4F  • r =7r;^, (T  PENOTES  PLATE  T H I P KNFS  S ) * / ? TX  , • P • A X • 0 * / 
7;?rY,«fv  (P)  .;,r  P'’  APPEO  TO  M (P)  »/4EX,  »M»> 

r 0 TO  (;  n <: 

*^4"  IFdFLITF.KE.ISAMOL)  ”RINT  ?4^ 

II  = PHV  (C)  tJriH*'  CMr^u 
rpT^'T  -.‘»'»,T'’’tYX 

IF  fCA7rRY.EP,r4A.  PR.PATGRY.  En.r:40)  '’pint  43ft,nATGRY 
IF  (CATppv.co.cE)  FPIK'T  4 '>0  , OEM  AX  , IP  L A NE  ( 1 ),  DE  LWF , WE  , PE  A K 

IF  (^ATPRY.nF.O'^)  ‘^RINT  3S?,II,PEAK,II,IPLANr(i) 

PRtmt  -^PCdLOjEHI  ,yLP,  XHI  ,F7L0  ,FTHI 

PRINT  L41,F'‘,  (iLirTiril)  ,11=1,7)  ,IFN 
PRINT  4on,3LP,Am 

L’-  format^ 

EITy,*'^  (P)=»,p1?.2,FX,»MAXI^II‘^  VALUE  OF  '' ( p ) - P 3 . , for  • , A 1 3 , 

3*T'^P*'  ATFP  ?AFT*/1 ‘’X,*^*/ 

416X,»''-.L  w =»Ft2,  7,Ay,»OORRFOTION  FACTOR  TO  Y (F)  FOR  EQUIPMENT  WE 
Eipi-T  V • LPS.» /21X,*'^*  ,41Y,*H»,?6X  ,»F^/ 

6l7x,»v  (F)  =♦,  F12. '’,6Y,*0n7REPTFn  VALU‘D  OF  Y ( F)  • /iflX  , , 2X  , , 

7’gx 

4pr  PORMAT ( 

llbX, •alpha  =•  ,Fi?  ,3 ,6X  ,*'^0R'^  factor  ,LOW-pcEO.pOLL-CFF»/ 

21AY,»^LP^ft'=*,Fl?,T  ,ex  ,»'^0RM  factor  , high -FRFQ  .roll -off*  ) 

CQ-JP  AT  ( 4 ?V , * ( RFOUTREp  wh-N  CATEGORY  •,A2,*  EOUIPM^NT  MOUNTING  IS  S 
l^E^TFT-nd'/) 
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VIPRF 

1664 

F7(j)rF7LFLr  TF7 ( 2) rF7vrL0  fFZ (3) =F7HFLO 

VIPRF 
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XFTPmx < 1 ) rXLFC CR  F X FF » My ( ? ) =X MPC HR  ? X F ER MX ( 3 ) = X HFT OR 

VIPRF 

1666 

VIPRF 

1667 

FLX  (1  ) r !VirN2  (TWO'’  (1)  * (XL'^L0**ALFL0)  , 1. -XL  FLO*  XL  FLO) 

VTPRF 

1660 

FLX(2)  = ATflN2(TWO'’(2)  * ( XHFLO**  A^FLO)  jl.-X^'FLO’X-FLC) 

VIPRF 

1669 

FLX(3) ^ ATCN2(TWOQ (3) *(XHFLO** AMFL03  , 1 ,-XHFLO* XHFLO) 

VIPRF 

1670 

1^70 

VIPRF 

1671 

AL°HA  ( 1)  = ALFL C f A LPWA  ( 2> = AMFL 0 SALPHA  (3) = AWFL C 

VIPRF 

1672 

wiLn(l)  = C.  «HlLn(?)rr.  <^HTL0(3)=5. 

VIPRF 

1673 

FirN'(n=l.C  3STO*Me)  = i,3  ?SIGN(3)=1.0  JK  = 7 SDP(4)=-1C0C 

.0 

VIPRF 

1674 

VIPRF 

1675 

VIPRF 

1676 

J='i  TCC^»ST  = C.  1C  $11  = 1 TL  = 0 

VIPRF 

1677 

FROrF^'TMFF  ‘IFH  AX=XLFl  0»F7|_rLO 

VIPRF 

1670 

VIPRF 

1679 

IF(F2).FF.C.)  no  TO  62? 

VIPRF 

1600 

iFPn 

y1=VL?FLC*  = L?FLO  'flF(yi.OE.FMAX)  GO  TO  61C 

VIPRF 

1601 

PRTtJT  C F , y 1 , F^^AX 

VIPRF 

1602 

= c-  format  (1 H- , *T frff'u-k'f:''  at  wmi'ih  thf  maximum  valuf 

OF 

L2(F)  nccu 

VIPRF 

1603 

lFS,*,r  H7,»/*  IS  L23S  than  THF  OCRRESPOHOING  FREQUENCY  FOR  L 

VIPRF 

1604 

2(F)  ,51  2,c/*  Tur  ppnORAH  ASS'JHrs  THAT  THL  fretuenhy 

OF 

THL  PAXIPU 

VIPRF 

1605 

IF  ?«=; 

■?M  VALI*"  CF  L?<F)  will  fi»/»  GREATER  T^AM  CR  FPUAL  TO 

THF  CORRESPCK 

VIPRF 

1606 

triKT  cpcr^-tKOY  OP  L(F>,*) 

VIPRF 

1607 

FQ  TO  IP'-" 

VIPRF 

1680 

VIPRF 

1609 

01"  TW'^q  (t  ) =2,  :»PL2FLr  ?F7  (4)  =cl2FL0  ? A L fh  A ( 4 ) = A L 2‘^L  0 

VIPRF 

1690 

ifcn 

XFPRMx (4  ) = XL2FrR 

VIPRF 

1691 

FIX  (4  ) = AT''V’  (TWO'’  (4)  » (VL'’FLn**AL?FLP)  , 1.-XL2FL  C*XL2FL0) 

VIPRF 

1692 

= ^ <fHrLF(0  = j.  3SI^^■(A)  =1.  0 

VIPRF 

1693 

VIPRF 

1694 

VIPRF 

1695 

lecq 

02"  IF  (FMA  Y , lF  .PMlKrp-)  r,p  jo 

VIPRF 

1696 

CALL  CFoif  TPf  FP  :o,  o ppsrL^p3Q^P4^AX, CONS’,  OF, XFcrhXjT  WOE, 

FLXjFZ, 

VIPRF 

1697 

1FIL0,SIFN,'L^HA,!I,J,‘<,L) 

VIPRF 

1698 

cp^'rPN  * X 

VIPRF 

1699 

VIPRF 

1700 

17^  r. 

F?P  P'^'^XrXNFLf’FZ^FLO 

VIPRF 

1701 

y WCF  ( 1 ) = *’. ’FLFMi  CP7  (1  ) = F7lfhI  SALPHA  (1)  =alfht 

VIPRF 

17C2 

FLX(l)='’I-flTAN2(Twn'’(l)*(XLFHI**ALFHI),l.-XLFWI»yLFHl) 

VIPRF 

1703 

HIL0(1)  = FI  (1)  = -1,3 

VIPRF 

1704 

VIPRF 

1705 

i7rr 

IF  (F2N.  P*"."  , ) CD  TO  AL" 

VIPRF 

1706 

TF  (yi.L".PFO>  ro  TO  AX* 

VIPRF 

1707 

VIPRF 

17C0 

VIPRF 

1709 

FMflX=Xl  "11=1 

VIPRF 

1710 

1715 

call  FFCP  ip  ( PFr'’,DtrnFL  , FRO , p ^AX  , C PN'ST  ,re,XFF^My,TWnP, 

FLX  ,F7, 

VIPRF 

1711 
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lFILO,^IGK,HPHfl,II,  J,»<,L) 

VIPRF 

1712 

?PHfiX=X***^Lr*P7MFLO 

VIPRF 

1713 

VIPRF 

1714 

63-  TWC«'(<*)  = 2.:»nL2FHI  SF7  (4)  =FL?‘"MI  S ALPHA  ( 4 ) = AL  2FHI 

VIPRF 

1715 

1715 

PLX  C4)=OT-ATAK?<TWOO(4>* (XL?FHI**AL2FHI)  , 1 .-XL?FHI»XL2FHI ) 

VIPRF 

1716 

HILC(«,)  = PT 

VIPRF 

1717 

VIPRF 

1718 

f4-  11=1 

VIPRF 

1719 

call  FPOIK'TF  (FppO  ,Ccr'=*^L  ,FRO,c-MAX,rOKST,OP,XFF9MX,TWO0,FLX,F7, 

VIPRF 

1720 

172n 

ihilo,?ick,alpha,ii,  J,«<,L) 

VIPRF 

1721 

VIPRF 

1722 

FRr=FPAX  ?C»<AX=XMFWI»c:7mchI 

VIPRF 

1723 

IF  (FHA  >.  Er.FPO)  cr  TO  5*^0 

VIPRF 

1724 

rP(2)  = VMFCCR  HI=1  ?L=7 

VIPRF 

1725 

172*; 

CALL  FFOI^TS  (FP^O,  PEP  fro,  FMAX,  CONST,  Oe,XFPRHX,T  WOP,  FLXjFZ, 

VIPRF 

1726 

lHILn,SIGK,  «LPHA,II,  J,«X,L) 

VIPRF 

1727 

VIPRF 

1728 

VIPRF 

1729 

T'P''.  FRC=FPAy  7Ff  AX  = XHFLn*c-7HPLn 

VIPRF 

1730 

1730 

TW0n(?)  = 2. '••PMFHI  ?FZ  (2)  =FZMFhI  ? AL  P F A ( 2 > = AM  F HI 

VIPRF 

1731 

FL''C2)=c»I-3TAK2(Twnp(2»’^  ( XMFmT»»  AMFHI)  , 1 . - XMF  HI » XMFHI  > 

VIPRF 

1732 

HlLCr?)  = PT  ?STr,N(?>  = -i,  3IT  = 1 ?L  = 0 

VIPRF 

1733 

^ALL  GFOI^'TF(FRl.'^,PEC0FL,FRn,FMAX,CONST,  OP,XPeRMX,TWOe,FLX  ,F7, 

VIPRF 

1734 

1MIL0,‘:TGK,  alpha,  II,  J,'<,L) 

VIPRF 

1735 

173*^ 

VIPRF 

1736 

VIPRF 

1737 

FR':=F>'AX  ♦P»'AX  = XHPMI»F7HCHI 

VIPRF 

1738 

IF  (FHAX . FC.PPP)  GO  TO  50J 

VIPRF 

1739 

ro  (7)  rYHFrcc  1TI=1  ^L^'* 

VIPRF 

1740 

l7Lr 

TALL  PPOINTS  (FREO,n£r-lfL  ,FRO,FrtAX,C0NST  ,De,XFPRMX,TWOP,FLX,F7, 

VIPRF 

1741 

1HIL0,*^TGK,  aPHA,TI  ,J,y,L) 

VIORF 

17*42 

VIPRF 

1743 

VIPRF 

1744 

CO"  CRr  = Cw/)x  «PHAX  = FMAVGr 

VIPRF 

17A5 

17iP 

( 3)  = 2.  > »PHFHI  «P7  ( 1)  =F7HPHI  $ AL  P F A ( 3 ) = AH  F HI 

VIPRF 

1746 

FL^<3>=°I-ATAN2(TW03(7)»(YMFHI*»AHFHI) , 1 . -XHFHI»XHFHI ) 

VIPRF 

17*47 

HILO(3)=f’T  '^SIGNC»I  = -1,  •?II=1  SL-0 

VIPRF 

1748 

TALL  rtPOXKTS  ( F REO  , PE  03FL  , FRO,  ^M  AX  , 0 ONFT  , OP  ,X  FFRMX  , TWOB  , FL  X , F7  , 

VIPRF 

1749 

lFILf,^lGN, ALPHA, TI,J,‘<’,L) 

VIPRF 

1750 

17  r 

NPT^'rJ 

VIPRF 

1751 

VIPRF 

1752 

VIPRF 

1753 

VIPRF 

1754 

r • • 

VIORP 

1755 

17rc 

C • P ♦ 

VIPRF 

1756 

r • • 

VIPRF 

1757 

VIPRF 

1758 

VIPRF 

1759 

VIPRF 

1760 

17  fn 

LXKAHr  (|>-4oH(F)C>eouFNO  SLX  HA  ME  ( ? > = 1 C ( ( H ) 7 ( ) ) J 

VIPRF 

1761 

XrXC  *75;TE0  = 5.C 

VIPRF 

1762 

VIPRF 

1763 

IF  {iNfPLT.eO,  IolAN*')  GO  TO  459 

VIPRF 

1764 

IPL0T=IPirT4l 

VIPRF 

1765 

VIPRF 

1766 

LyNAHC(H=lC^(‘‘(>F(1>-*'  3LYNAME(2»=4H(a>  5 

VIPRF 

1767 

ILTN^l  (1  IrlQHCPOUr'PAPY  5 1 L IN'^  1 ( 2 ) = 1 0 HL  A Y FR  osc)  $IL  I NF 1 ( 3 ) = 1 H? 

VIPRF 

1768 
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17-n 


j - er 


1 7 or, 


j-rr 


17rc 


J fl  r p 


j a 


1M3 


1 q ir 


c '3  q n c W 

VT^''F  r^Trl  PJKJ  OP/16/77 

13.11 

J=  1 ' h (^  ( ) F () ) =T  -^VrCH  n(C)  nn. 

VIPPF 

1769 

VIPRF 

1770 

VIPRF 

1771 

47*^  TW''c'’F  = ?.*'-PF  »FL/'"f-DT-U/\N2(TW0BPF*(yPF*»APFHl)  ,1.-XFF»XFF) 

VIPRF 

1772 

PO  45  C I T - 1 ,^.'PTS 

VIPRF 

1773 

•^=11  ^1 -'^  = '^0  (TI>  IP  ( VI  , r,r  pQ  TO  46^ 

VIPRF 

1774 

Yi=Yi/c7rF 

VIPRF 

1775 

yirPFk.rqf;?-,*ALOPlO(f^'^-i\TaM?(TWOPPF»(Xl»*AOFHI),l.-Xl*Xl))/FLVPF) 

VIPRF 

1776 

4F  rp-L ( TI ) =y  1 

VIPRF 

1777 

VIPRF 

177« 

'*f  " L = ■’ 

VIPRF 

1779 

cn  £.cr  ITrX,MFTS 

VIPRF 

1780 

L = L»-1  : X (II)  jrPrL(L)=Xl  «Xi=Xl/r7PF 

VIPRF 

1781 

vi-orvrP4-';'.*fiLPP'10((PT-4T^N:?(TWOPPP*(Yl*»APPHI),l.-yi*Xl))/FLVFF) 

VIPRF 

1782 

4F"  P-rL(IT)^Xl 

VIPRF 

1783 

VIPRF 

1 7‘'4 

VIPRF 

1785 

I'"(IPlI7E.^^.lP^\M^L)  GC  TO  466 

VIPRF 

1786 

VIPPF 

1787 

VIPRF 

1788 

rF''  = P>'£xrc 

VIPRF 

1789 

Lfy  Fc;^  = rrr  + rrKPT»FR'^  ?IF  ( p'^O.^T, ‘^^'^Wpp)  GC  TO  4*^? 

V [PRP 

1790 

L = L«-1  ' FFPL  (L  ) =FP'^ 

VIPRF 

17<M 

FC  TP  467 

VIPRF 

17°2 

VIPRF 

1793 

VIPPF 

1704 

4'’'"  PALL  Ct^FL  h (FSFL  ,rrSPL  ,L  ,P»PHDq,  0 . ,PPF  , J.  ,XPF  ,C.  , F7PF,  C.  . AFFHI  , 

VIPPF 

1795 

IFMTMFF,  PK"'YnF,p3MlK*,C  , IFIRST,  J,M,1H  ,?MHI) 

V lORF 

1796 

V IPPF 

1797 

VIPRF 

1798 

(UC^L  ' .t^C,  TCLfl^'K)  PC  '"0  475 

VI°PF 

1799 

PfiLL  FMiFL(TPLCT)  FGO  TP  47? 

VIPRF 

1800 

VIPRF 

1 ecl 

VIPRF 

1802 

r 

VIPRF 

18  03 

• » 

VIPRF 

1804 

* S ) » 

VIPRF 

1805 

• • 

VIPRF 

18  06 

VIPRF 

1 807 

4P-  louASFrC  'J'TF  (INQDLT.FQ.r  IL^iNK)  GO  TO  457 

VIPRF 

180  8 

inu ASF  - 1 * I 1 = 5^  F (F) 

VIPRF 

1809 

TP  (IPLI’P,F'',iru«^F^,fMr,  'otpo.lt.SDFLTA)  GC  TP  45C 

VIPRF 

1810 

IF  (IFL  7Tt  . r I'^IPP)  PP  TO  451 

VIPRF 

1811 

P^IN'T  4rr,TT,iy,SrLC,'’PP,FqHl,SXL0,XFF,SXHI,  SF7L0,F7PF,SFZI-I,FALC, 

VIPRF 

1812 

lA”CvHi,c«p],nc».E'5^co'-Ak' 

VIPRF 

1 813 

4 5<  F0P»^A7  (ll-l,*f^fl'3AMFTrRG*,?X,»o(F)»,8X,AlO/a8X,fl'»/ 

VIPRF 

1814 

ipy,*p  =*,11X,G1?.^/.:>X,*0»=*,P11.T,Gi?.3/ 

VIPRF 

1815 

?‘’X.*X  =»  ,liy,^l‘’.3/8V,*X'=*,Pll.  ?,G12.3/‘^X,*F  =*,11X,G1?.5/9X,*0’/ 

VIPRF 

1816 

3Py  ,*p*r*^  ,r  11. 5,Pl?.  = /q  V,*0^/4X,*  ALPHA  ,1  lX,ri?,7/4x,*ALP»-A»  = *, 

VIPRF 

1817 

^G11.^,^17,j/7x,»MAX.VAi..=*,r,ii,4,Gi2.4) 

VIPRF 

1818 

MxMHnOTM  ^GO  TP  457 

V IPRF 

1819 

VIPRF 

1820 

4'-'  PRINT  i^51,!I,IX,RrP,S"»wi,XPF,SXHl,F7rF,SF7Hl,AnpHl,SflWl,PFvCE, 

VIPRF 

1821 

1 CO  C « K' 

VIPRF 

1822 

45-  FCPmaT(ii-i,»papamiT[PP*,3X,*p(F)*,8X,A10/?7X,A2/ 

VIPRF 

1823 

l^X, » 5 « Gil. 3, Gl?.3/«v,»x»=»,G 11.3,012.3/ 

VIPRF 

1824 

2Py, ♦F*  = », G 11. L, Gl?. 4/4V,*AL PM A»=*,G 11.3,012.3/ 

VIPRF 

1825 
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rrynrfif^  u 

7U/74  PPTri  PT^J  /♦, 5 + 1144  Ofi/16/77 

13.11 

72y  . VFL  . = *,Gll.4i,Gl7.4) 

VIPRF 

ie?6 

M=  ‘JMH  T 

VIPRF 

ie?7 

VIPRF 

leza 

VIPRF 

ip?q 

IS’  '^=7M  ->  (F>  «L=5H  d (F) 

VIPRF 

1630 

ORTN'T  '•9'‘,TX,y,nLflwy’ 

VIPRF 

1631 

<^PTMT  4F  1 ,TI,  K,L, 

VIPRF 

1 P32 

FOPm/jt  f i^-,3y  ,+FPFOUENrv  (H7,  ) * , gy  , A5  , i q y , a iq  , i j y , a5 , 1 ?y  , 1 D 

VIPRF 

1633 

PRTVT  i-F*"  ,ly  , iv 

VIPRF 

1634 

FC'J^'AMPcy  ,82  , I5y  ,A?,  1-y  , A2) 

VIPRF 

1635 

1?  .‘5 

VIPRF 

1636 

FALL  ^'■rPFLA(FPL"»,nor:TL,NPTS,'>PtA<,FyLC,SX»-I,S'3LP,FOHI, 

VIPRF 

1637 

1'^F’LC,«F7HI,FAL0»‘^Ami,»'> 

VIPRF 

16’fl 

VIPRF 

1635 

ro  45’  Kr^NPT*^ 

VIPRF 

1640 

IPIC 

IF  (PE^^FL  (y)  .LT.:.  ) ni;sFL(‘F)=0. 

VIPRF 

1641 

VIPRF 

164? 

VIPRF 

1 643 

VIPRF 

1 644 

FALL  TWOFl’^  (F'FrO,rospL  , TJr  , fjo  JS , FM  I ^ G F , f v a y C f , D3MTN  , F WA  L ) 

VIPRF 

1645 

1 « ^’5 

VIPRF 

1 646 

(INCclT.  E'’.  GC  TO  475 

VIPRF 

1647 

VIPRF 

1 646 

VIPRF 

1 645 

K'=7HHT 

VIPRF 

1650 

1 6 '**■ 

IF  rjFLIT- .:o,  XPijF-T.A^F.^qjFn.LT.SPFLTA)  rc  TP  456 

VIPRF 

1651 

IF  flFLITf  , TTlJpn)  pq  j ') 

VIPRF 

1652 

K = i,Hrrj^ 

VIPRF 

1653 

IF  (SF7Ln,L':’.FMi‘jGp)  ro  TO  455 

VIPRF 

1654 

cLyi  = ATAK7(2.*c'5^r*(5yLO**SALO),l,-SXLO»SXLn) 

VIPPF 

1655 

i 0 ec 

IF  (FL''l  . L’.  ■ . ) FL  XlrFLXl +2,  •♦'’I 

V IPPP 

1 656 

vircpr£t<f2:.*AL0'*ir(Oiy(^,»rLyj))  XX?  = SFZLC/f?of 

VIPRF 

1657 

v2-oc»^rTf?c.''  ALOOic  ( ('’I-ATAM’(TWDBPF*  (y?**aoFHl)  ,l.-y2*y2))/FLXFF) 

VIPRF 

1650 

vvftL-XlfX’  ’•'ALL  •"UPV'*  CS'^ZLO,  YVAL  ,1  ,1) 

VIPPP 

1 655 

VIPRF 

1663 

45"-  FLyi=FT-ATfl^-7(Z.*r.PMT*(0yMI**SAHI),l,-SXHl  + SXHll 

VIPRF 

1661 

yircpf  aK 42  ' ALJOir (FI/ ( *FLX1 ) ) ^ X2  = SF Zmi/f 7^^ 

VIPRF 

1662 

y2rPF»'rnf2'',*ALCP-lC(r^T-ATAN2(’’W0PPF+(X2»*APFHn,l.-y?+X2)>/FLYPF) 

VIPRF 

1 663 

YVflL=vi4-X2  «OALL  OUF  V ( S ZH  I , Y V AL  , 1 , 1 ^ 

VIPRF 

1 664 

VIPRF 

1665 

CALL  FririKHlM^) 

VIPRF 

1666 

fall  LCrFnvA  (S'’Ln,‘^FHI  , 0 Y L 0 , S X M I , SF  Z L 0 , 5 F ZHI  , S A L 0 , 5 AM  I , FH  I KG  F , 

VIPRF 

1667 

lF''aYGF,vvBL»nvv>L«<) 

VIPRF 

166? 

VIPRF 

1669 

call  FKOPLdPLFT) 

VIPRF 

1670 

1«70 

VIPRF 

1671 

VIPRF 

1672 

r 

VIPRF 

1873 

r 

* ♦ 

VIPRF 

1 674 

'* 

• H(F)  • 

VIPRF 

1 675 

1 p?'^ 

f* 

• ♦ 

V IPRF 

1676 

r 

VIPRF 

1677 

VIPRF 

1678 

VIPRF 

1679 

47’  IPL0T=IPLrT4l 

VIPRF 

1680 

1 P F'' 

LYKAV'^fDri-ucF)  (OFf)  ) ^LYNAMr('>)-fM-F(3)I 

VIPRF 

1661 

TLIKt  1 (l)  = l''H(FTOH  Forp  dL  I»J5  1 ( 2)  = 1 CHUENC  Y TPAH 

VIPRF 

1682 
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ILTKFl  (3  ) = 1CWSFER  FUf'CT  TIL  INE  i ( 4)  =6HI0N)  ? 

VIPRF 

ieP3 

ITTTLl  (1  ^ITITLl  (2)  =lCHTRUrTURF-F 

VIPRF 

ieP4 

ITI7L  1 M ) = 9HUSLL^r-E  > i 

VIPRF 

1 eP5 

IP  flC 

II=1CF (H 0 P 0 ) =?  »J=OMMrP)  HR. 

VIPRF 

1686 

VIPRF 

1887 

VIPRF 

1888 

47" 

Krr  «rpMCTri],07  trRQrPMXNHF  SF^AX  = XHFLC*FZHFL0  TL  = C 

VIPRF 

1889 

4p: 

K=Kfl  fF9PL(K)=PR^ 

VIPRF 

1800 

i per 

FR^rFFG«-rCKPT*FR'^  ^ I F ( F RO  . l T . P max  ) F-C  TO  460 

VIPRF 

1891 

IF  {L.FF  . GO  in  er.5 

VIPRF 

1802 

L=1  »FfiO  = P“Ay  Tpmax-=fm axmp 

VIPRF 

1893 

vi  = yHPHI*P7HFHl  TF  (FRO,  EO.  XI)  GO  TO  4PP 

VIPRF 

1 894 

K-rKfi  (K)=FRP  JFR^rXl  TGO  TO  4P0 

VIDRF 

I805 

1 P cc 

VIPRF 

1 896 

VIPRF 

1897 

5r7 

PALL  GNTFL^ (F?FL,rPSPL , XHFOOR ,RMF L C , BH FH I , X H^L 0 , XHFHI , F 7HFL 0 , 

VIPRF 

1 898 

lF7PFHl,AMeLr,  AMFHT,  PMx^HP,FMAXHF,OBMI^J,C,  IFIRPT,  II  , J,  IH  , 4HeCTH) 

VIPRF 

1 899 

VIPRF 

1900 

lorn 

VIPRF 

1901 

IPHASF  = 1 ‘TFdfO'^LT.r'i.IRLANK)  GO  TP  6CP 

VIPRF 

19C2 

IF  (rOTGPy  , CIR)  FO  TP  5(J7 

VTPRF 

1903 

IPHfFE=C  *PP  TO 

VIPRF 

1904 

VIPRF 

1005 

jr  re 

FC* 

>'VAL  = 1.1  r^F^INHF  epALL  HE  I GhT  ( HI  TFl  ) 

VIPRF 

1906 

''VVfiLFl.i:*^'IT£*ySTPP  ^ V AL  = DP  HI  N fYS  T E P ♦ 1 .F^OWAL 

VIPRF 

1907 

PALL  FL^PSFC*(W)  =«”,♦•  11  ^ , XVAL  , YVAL) 

VIPRF 

1908 

PALL  FLPC  £L  (WF  , ,”AnilT**  ,"APUT‘*> 

VTPRF 

1909 

PALI  CL^'FFiC’  oSF,F»,f  ni,”AP'JT",”AFUT«‘) 

VIORF 

1910 

loin 

CALL  FL^fFcc*  s $•*,  f VVAL,  YVAL-C  .F*DY'/AL) 

VTPRF 

1911 

VIPRF 

1912 

PALL  Pl^^SSr'(P)  jc  ,XVAL  ,YVAL-1  .f»OYVAL) 

VIPRF 

1913 

call  PLRFAL(PS,*1  ♦"APU'"**  ,‘’ARUT-) 

VIPRF 

1C14 

CALL  FLMfecc  J N , T ** , d 0 1 , *•  A 9U  T”  , **  A ^UT ’* ) 

VIPRF 

1915 

loir 

PALI  RL^PSTC*  F f 1 JC  , YVAL,  YVAL-2.  C*PY'/AL) 

VIPRF 

ICI6 

call  FL'^LFf  (••  (W)  =T’*,«-101,  yval,yval-3.c*oyval) 

VTPRF 

1C17 

PALL  FLppp?.(wE,4-l  ,~AP'.'""  ,**AR'JT“) 

VIPRF 

1910 

call  FLHrccf  l«S.f-,  f 10:,**ARIJT“,**APUT’*) 

VTOPF 

1919 

CALL  FFTfj-T  (0 ,7*HITF1) 

VIPRF 

1920 

1020 

'■all  fl‘^fcc(»  (I)  f , f no  , xval  , yval-’.  5*0  yv  al> 

VIPRF 

1921 

PALL  Fr I THT (WITEI ) 

VIPRF 

1922 

pall  FfSTTC’^AFalF”)  TPALL  RLHFSSdFLiTF,  1C,  XVAL,YVAL-4,5*CYVAL) 

VIPRF 

1023 

call  ALF  (»L/PF7n**) 

VIPRF 

1924 

CALL  FPTPFT(hitp) 

VIPRF 

1925 

10?? 

PALL  FNDFLdPlPT) 

VIPRF 

1926 

VIPRF 

1927 

VIPRF 

1928 

VIPRF 

1929 

r • 

* 

VIPRF 

1030 

1 o 1 r 

r • 

P (F  ) • 

VTPRF 

1931 

r 9 

• 

VIPRF 

1932 

VIPRF 

1033 

VIPRF 

1934 

VIPRF 

1039 

1° 

“O'* 

IPLCT^TPLC'^d 

VIPRF 

1036 

VIPRF 

1037 

LYNA«r(l)Ticu(G()r())-c  *LYNAHF(2)  = 10H(n)  (ORE.l 

VIPRF 

1938 

LY^  AMC  <3  ) r 1 QH  (G.F)'>,/(  TLYNAHF  (4)  =7HH)  7 ( ) )F 

V IPRF 

1939 
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IQtn 


lots 


1 Q cr 


1«!5 


loco 


107n 


197? 


1 o pn 


I9cr 


igcc 


P*?OPRftH  VT»5RF  74/74  0PT  = 1 FTN  4.F4-414 

OP/16/77 

13.11« 

ILINtl  C1)  = 10M(P£SPONS5  =«ILIME1  (2)=1CH0F  PRIMARY 

VIPRF 

1940 

ILTN'Cl  (7)  = 10H  'TRl,'CTt»Rf  SILIMEI  <4)  = 2H)  S 

VIPRF 

1941 

ITTTLl  (1)  = ?P  S ?VPTFo  = c,  -) 

VIPRF 

1942 

VIPRF 

1943 

PRI^'T  2Li  5PRIM  353,T'=LAMr  ,iflITE 

VIPRF 

1944 

VIPRF 

1945 

IF(F2h,Nf GO  TO  514 

VIPRF 

1946 

PRINT  539 

VIPRF 

1947 

5C® 

FORMAT (1H-,4X,*PARAMETFR9*, 3X, »P(F) •,5X,*L(F)*,5X,*M(F)*,5X*H{F)*I  VIPRF 

1948 

II=1HP  5Xr?HP* 

VIPRF 

1949 

PRINT  ':il,II,eLFL0,o^'^L0,9HFL0 

VIPRF 

1950 

511 

FORMAT (9X,a4,FlB.3,3F9.3) 

VIPRF 

1^51 

PRINT  FI 2,X ,PPF,nLFHI ,phfhI jPMFHI 

VIPRF 

1952 

PI’ 

FORMAT (qx,e4,5F9. ’) 

VIPRF 

1953 

II=1HX  IK=?HX» 

VIPRF 

1954 

PRI^'T  '^11,II,XLFLP,X»'FL0,XHFL0 

VIPRF 

1955 

PRINT  =1 2,X,yPF,XLFHI, VMFHIjXHFHI 

VIPRF 

1956 

II=1HF  SX=7WF»  ?l=1HC 

VIPRF 

1957 

PRINT  5 1 1 ,II  ,FZL‘"LO,FZmci_o,FTHFLO 

VIPRF 

1958 

PRINT  '■-13,1 

VIPRF 

1959 

P13 

FORMAT (ICX,  Al) 

VIPRF 

1960 

PRINT  51 2,x,P7FF,F7LFHI,fZMFHI,Fthfmi 

VIPRF 

1961 

PRINT  513, L 

VIPRF 

1962 

II=1HA  FXr’HA* 

VIPRF 

1963 

PRTK'T  51  1 ,IT,  ALFLP,A>'FL0,AMFL0 

VIPRF 

1964 

PRINT  51 2,X,APFHI , ALFHI, AMFHI, AHFHI 

VIPRF 

1965 

I Irl.  WW  (Y  , 

VIPRF 

1966 

PRINT  51 2,  II, PFMnp,XLPCOR,XMFCOR,XHFCOR 

VIPRF 

1967 

GO  TO  e 

VIPRF 

1968 

VIPRF 

1969 

VIPRF 

1970 

^14 

PRINT  521 

VIPRF 

1971 

format (1H-,4X,*oAFAMFTFR5*,3X,*p(F)*,5X,^L(F) ♦,?X,*L  (F)*,5X, 

VIPRF 

197  2 

l*MrF)»,sX,»H(F)*/T7X,*’») 

VIPRF 

1973 

II  = 1H»^  «tX  = 2HP' 

VIPRF 

1974 

PRIMT  ^11  ,TT, ELFLC,PL?PLP, 9MFL0  ,5HFLO 

VIPRF 

1975 

PRINT  p12,X,ppF,plphI ,EL2FHI, RMFHI ,PHFHI 

VIPRF 

1976 

II  = 1HX  <!‘k'=2HX» 

VIPRF 

1977 

PRINT  5 1 1 ,II,XLFLO,XL2FLn,XMFi.O,YHPLC 

VIPRF 

1978 

PRINT  51 2,x,XPF,XLFHI,XL?FMI,XMchI,XHPmI 

VIPRF 

1979 

II=1HP  TYrRMF*  IL=lMr 

VIPRF 

1980 

PRINT  5 11,1!  ,F'^L»^LO,PL2FLn,PTMFLn,P7MFLn 

VIPRF 

1981 

PRINT  513, L 

VIPRF 

1982 

PRINT  51  2,X  ,FZFF, PZLFHI, pl?FHT,FZMFHI,F7HFHI 

VIPRF 

1983 

PRINT  51  ■’,1 

VIPRF 

1984 

TI-IHA  JK=2HA' 

VIPPF 

1985 

PRINT  5 1 1 ,11, ALFLC, AL?PLO, AMFLO, AHFLC 

VIPRF 

1986 

PRINT  *'12,X,AFFHT,ALFHI,AL?FHI,AMFHI,AHFHI 

VIPRF 

1987 

IlTAHf'AX  • 

VIPRF 

1988 

PRINT  P12,!I,CFMDD,XLFroo,XL2PCR,XMFCnR, XHFCCR 

VIPRF 

1989 

VIPPF 

1990 

51  *» 

II  = 5H  F(F)  ?K  = ch  l-m-h(F)  «:l  = 5H  ^CD  $“=1PF  G SO./mz, 

VIPRF 

1991 

PRINT  ?q?,TI,K,L  ‘SPRINT  461,II,K,L,N  TPRINJ  4 55 , 1 X , I PL  ANK  , I EL  ANX 

VIPRF 

1992 

VIPRF 

1993 

VIPRF 

1994 

’ 3 

CALL  TWO  FUN  ( FR  ^0 , F PF  L , OF  CBF.  L , NPTS,  FMIKjgf  , FMA  XGF,  OBHIN  ,rYV  AL) 

VIPRF 

19C5 

VIPRF 

1996 
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IF  (CATTPv  cin)  r,0  774 

VIORF 

1307 

r/VLL  (ITlCT)  SGO  TO  36C 

VIPRF 

1300 

VIORF 

1339 

77u 

Tr^wacfr^  IIP  (lKODLT.n.I'’LAM»<)  GO  TO  775 

VIPRF 

?000 

?CCr 

lov-AS''=l  ^OALL  ENOrid^LOT^ 

VIPRF 

?C01 

VJORF 

2C02 

VIORF 

200  3 

VIPRF 

2C04 

« 

VIPRF 

2C05 

-n  -r 

p * 

V (C  ) • 

« 

VIPRF 

2CQ6 

r • 

VIPRF 

2C07 

VTORF 

200  0 

irLOTrl^L'":  n 

VIPRF 

2C03 

LVMiMr(^)-|PH(Y()FC))-''  ■>“L''NAMF(2>=1PH(P()RE.1.C  $L''^JAV^(3)=4H())? 

VIPRF 

2C10 

??ir 

ILTNF  Ml  ) = •*  CH  (T^-n-cpt  c flLl‘»Ll  (’)  = ICW^UNCTIOK  F ? IL  I ^’F  1 ( 3 ) =4  MOR ) ? 

VIPRF 

2C11 

VIPRF 

2C12 

CO  ?7i.  IT  = 1,7 

VIPRF 

2C13 

ITITlI  f I I>  =TLUL'^  (TT> 

VIPRF 

2C14 

VIPRF 

2C15 

"Cl*- 

Tiri  CF<'<  O'^  ()  ) = ; 5'<=nw  ''  (F»  03.  »YSTEp  = 5.0 

VIPRF 

2C16 

yi  = C6TG^Y  - (CATGRY.L''.  "4A)  X1  = 7M3A 

VIPRF 

2C17 

IF  rCAT^OY  , 040)  vir2u-?3 

VIPRF 

2C18 

VIPRF 

2C13 

VIPRF 

2020 

?C  ? 0 

7^~ 

IF  CfAYFRY  .M.  Ce)  GO  TO  ^ P5 

VIPRF 

2C21 

VIPRF 

2C?2 

FO  78r  IT  = 1,MF'^S 

VIPRF 

2 02  3 

p: 

rriPL  (TI)  . 

VIPRF 

2024 

^0  TO  ■’87 

VIPRF 

2025 

?C  '6 

VIPRF 

2C26 

VIPRF 

2027 

7“3 

FALL  C^^Fll^  (FREO  , rnj-i_  j pr/^^  , 3L  0 , E HI  , XL  C , X HI  , F 7l  0 , F 7 HI  , AL  C , A H I , 

VIPRF 

2C28 

lcMiMQc,rk»ryGF,niMIM,i,IFiPST,IT,‘^,Xl,4HnOTM) 

VIPRF 

2C?0 

VIPRF 

2C30 

?r  3r 

-•  O'* 

IR^-ASF^l  «TF  ( U0C»LT.N*  .1  "LANK)  GO  TO  78R 

VIPRF 

2031 

IFcnATFPV,K  = ,C4A.ANn.0''TF,R''.NE.r:43)  GO  TO  780 

VIPRF 

2C32 

iruflcrrC  «‘FC  TO  8CC 

VIPRF 

20  33 

VIPRF 

2C34 

-*ep 

PQLl  FKnPLdPLFT) 

VIPRF 

2C35 

2 

VIPRF 

2 036 

VIPRF 

2C37 

VIPRF 

2038 

p ♦ 

V IPPF 

2 0 33 

p » 

P (F  ) • 

♦ 

VIPRF 

2040 

pr  tr 

p * 

VIPRF 

2C41 

VIPRF 

2042 

■»  p : 

TFLOTxIFLC !♦! 

VIPPF 

2C43 

PRTNT  E**e  ^PRUT  7F-»,I'’LANr  d'^LITE 

VIPRF 

2C44 

y (r)  iK  = 7H  GfF)  TL=?H  R(P)  '^HrllH  G fo./h?. 

VIPPF 

2C45 

<‘=5 

rpTNT  70'',II»*^»L 

VIPRF 

2C46 

70' 

FORHflT  ( 1 M- , *VALI)FF  PftL^'lLATEO  FOR  FUK'CTIONGt  *,7Air) 

VIPRF 

2 047 

FRI^'T  461,II»Y,Ld‘ 

V TPRF 

2 048 

VIPRF 

2043 

II  = ?H7A  TIF  (FftTGRY.E". ''4A)  GO  TO  7Q3 

VIPRF 

2030 

*-0 

IT  = 2H’>F  F jc  fn/iTGRY.  CO.  04")  GO  TO  703 

VIPRF 

2051 

PRINT  4Fr,rATFFY,T”LANK, I"lAMK 

VIPRF 

2052 

F-C  TO  7 0" 

VIPRF 

2033 
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pPorpflH  viPPF  7unu  nPT  = i ftm  4.54-<*14 

08/16/77 

13.11, 

VIPRF 

2054 

79^  FRTMT  t?c,ix,IPL4W‘^,I'’L'\NK 

VIPRF 

2055 

20 

VIPRF 

2056 

VIPRF 

2057 

LVNP^*’  (l)  = lPH(R()F())-r  sL'^MAMr(2)  =lbH  (P)  ( ORF,  1 

VIPRF 

205  8 

LYNA'^E  (3)  =10H  (';.S)C,/(  SL'' NA  (4 ) =7HH)  7 ( ) ) $ 

VIPRF 

2059 

ILTNEl  (1)  = 1''H(RlSP0NS-  SILINEI  ( 2)  = IOHOF  IMF  AIR 

VIPRF 

2060 

?pfr 

ILTNEl  f3)  = 10MCFA'^T  phijt  IILINE  1 ( 4)  =7HPMENT ) « 

VIPRF 

2061 

I7ITL1(1)=2P  S 

VIPRF 

2 062 

VIPRF 

2063 

VIPRF 

2064 

call  T^.OFL^  (FREQ,PPFL  ,rE'^PEL,NPTS,FHINCF  ,FVAXr,F,nPHIN,nYVAL) 

VIPRF 

2065 

?c  c»^ 

VIPRF 

2066 

IF  (CAT rRY.EP.C4A.OP,rATCRY.En,r49)  GO  TO  805 

VIPRF 

2067 

GALL  FhDPLdPLGT)  «GO  TO  860 

VIPRF 

2066 

qC'  LYKAHF f 2) =1  CM  (")  C () RF.  1 

VIPRF 

2069 

LV^AMC  17 > = 10H  (G.^)0./(  SLYNAiF (4)  = 7HH)Z  () )$ 

VIPRF 

2070 

2C7'’ 

IF  flKCFLT.F'',  IPLAMX)  GO 

VIPRF 

2071 

TALL  FNrFL(IPLCT) 

VIPRF 

2072 

VIPRF 

2073 

VIPRF 

2074 

VIPRF 

2075 

20  7F 

VIPRF 

2076 

P » * 

VIPRF 

2077 

r • Yd)  » 

VIPRF 

207P 

P • 1 A * 

VIPRF 

2079 

r » » 

VIPRF 

2080 

20^0 

VIPRF 

2081 

VIPRF 

2082 

VIPRF 

2 0 8 3 

TPLO’-rlPLCT  ♦! 

VIPRF 

2084 

VIPRF 

2 085 

2C  0*^ 

LYKA*-P  (D-lOH  (V  ()  F ( ) )-P 

VIPRF 

20«6 

TLTFCl  (l)rirH  (TRAMPF*^R  5ILIM£1  (2>  = 1 OHFUNCTICN  F ?ILINF1  ( 3)  =4H0R)  < VIPRF 

2087 

VIPRF 

2088 

T'^ITLd  1 ) =1?H  (EOUTP^EMT  »ITITL  1 ( 2)  = 1 C H MOUMEP  0 

VIPRF 

2089 

TTTTLl  (3)  = 1''MN  PRI**APY  ?ITITL1  (4)  = ICHSTRUCTURE 

VIPRF 

2090 

20C0 

ITT"^Li  iphTmROUGH  I^  5 ITL  1 (6)  = ©HOL  ATORS)  ♦ 

VIPRF 

2CC1 

ii  = i:f{y  ()C()  )rx,  ?»<’=nM  Y (F)  on.  $ystep=5,c  ♦l=2hia 

VIPRF 

2 092 

VIPRF 

2093 

71 . GALL  P FMK (PREO ,GPFL ♦ ^OTS, ClAMYO, n ARLO ,C1APHI , ClAXLOjGl AXHI, 

VIPRF 

2094 

1G17F7L  ,r  lAPZM,GiaALO,'"lA  AHI  ,FMINGF,Ff<AXGF,CPMIN,l»IFIRST,  II»Kf  L, 

VIPRF 

2095 

?r  cc 

24H^nTw> 

VIPRF 

2 096 

VIPRF 

2097 

IF  riNCPLT  .N't . IPLAfY)  ':SlL  CND^L(IPLGT) 

VIPRF 

2098 

VIPRF 

2 099 

VIPRF 

2100 

?1CC 

VIPRF 

2101 

r • • 

VIPRF 

2102 

P ♦ A ( F ) * 

VIPRF 

2103 

P » » 

VIPRF 

2104 

VIPRF 

2105 

IPLGTrTOLGT  *1 

VIPRF 

2106 

ITHAS*":! 

VIPRF 

2107 

^'RTNT  24F  dRlM  35  3 , 1 ANE  , I P L I T F 

VIPRF 

2108 

II=6H  Y d)  TJrSM  p (F)  S<  = 6H  A (F)  $H  = 1JW  P,  ST./H^, 

VIPRF 

2109 

L = 2H3A  if  (CATPR'' .£n.Gt»3)  L=2H’g 

VIPRF 

2110 
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p:3Qr  P w \/JP 

■'F  rPT  = l FJN  4,r-i-414 

OP/ie/77 

13.11 

21  If' 

cptm  7q.,xt,j,<  cprimT  461,II»Jt<i^ 

VIPRF 

2111 

-rRiK'T  4F5  ,“,L  , C!\Tr,RY 

VIPRF 

2112 

VIPRF 

2113 

LVN  ( 1)  TH  (M)  ^T)  ) - P 

VIPRF 

2114 

ILU'L  1 ( 1 ) = 1 :H(rjPUT  TP  :ILI'J‘1(2>  = 1CHTH2  aiFP^A 

VIPRF 

2115 

21 

IL:N=‘1  'ILI'^IFI  (4)  r phnT)  « 

VIPRP 

2116 

VIPRF 

2117 

ITITLI  (1  ) = 1^H  (3TUTPM'NT  -ITT  IT  L 1 ( 2 ) = 1 CH  MOUNT^P  T 

VIPRF 

2118 

I'^TTLl  (3)  = lGHHFP!irM  IFC  I T I^L  1 (4)  = 1 C ‘^L  A TPRS  ON 

VIPPF 

2 119 

VIPRF 

2120 

212': 

IF  (OAT'^R''. '^P.  043)  GO  TO  620 

VIPPF 

2121 

VIPRF 

2122 

TTITL  1 (t  ) -1  f'wicqL  S 3 IT  I T L 1 (^S  ) = 1 C MHP  L F OP  ?A 

VIPRF 

2123 

ITTTL  1 C*  ) t^HPYI  * 

VIPRF 

2124 

ro  TO  «4C 

VIPRF 

2125 

?r 

VIPRF 

2126 

' ITITLI  (-> -KMNONI-imi.  , 5 ' ITITLI  (*S»  = 1 CHwflf  or  RA 

VIPPF 

2127 

ITITLirT)=4HPKH 

VIPRF 

2128 

VIPRF 

2129 

VIPRF 

2130 

21  3' 

^AlL  T^OP^!^(PP‘■p,pPiL,P^'"'l'^L,NPTS,F^INGF,FMAx<^P,OPMIM,DYVAL) 

VI°RF 

2131 

VIPRF 

2132 

VIPRF 

2133 

PALL  TNPPL  (TPLf'T) 

VIPRF 

2134 

VIPRF 

213'; 

21-' «• 

VIPRF 

2136 

' IF  (JFL  ITE. !^a:4rL  .pp.TOK.  Fn,  1)  r,0  TO  IIP'? 

VIPRF 

2137 

IFLITr  = J FLTTF  TO 

VIPRF 

2178 

VIPRF 

2139 

1 j 3' 

• '^O^'TTVL'* 

VIPPF 

2140 

21  10 

IF(I£C4PP,3'',t)  op  in  Pij 

VIPRF 

2141 

IP  (IlFFOp.nF. ')  PC  TO  1 

VIPRF 

214? 

i°LrKF(i)  = TwnLr(ii  -tplanf.  (2^  =iHnLC  (?) 

VIPRF 

2143 

TPLAKP  C^lr-^woLrC')  <^JPLTTr  = IM 010(4) 

VIPPF 

2144 

INCPLT^IPOLC(S) 

VIPRF 

2149 

211^ 

00  TO  31 

VIPRF 

2146 

VIPRF 

2147 

VIPRF 

2148 

qq 

• pall  CC^’pFl 

VIPRF 

2149 

VIPRF 

2150 

PI  r >■» 

VIPRF 

2151 

P P T ^ ’ T F 1 <" 

VIPRF 

2152 

T ''j 

* F0PMaT(lH1,tiJy,*AVtRA0-*,23X,  • AVERA  Of  * , 8 X , ^S'’F"0*,OX,*AVcRAGE*, 

VIPRF 

2153 

1FX,*AV.VTN  ^^'ATIC*  / "lY,  • AVPP  AGF»  , 7 X , • PRF  SSURF  • ,7X  ,•  AVERAGE  » , 

VIPRF 

2154 

2PX,*0rNSITV*,l^X,*0r4,ox,»(<irgrHATIC*,7y,*VISCnSITY*/ 

VIPRF 

2155 

21 

■•15^,*  A LT  ITUPP*  ,TX  j’PPPSOMPP’jGyj^NOFhaLI  , 6X , * DFNS  IT  Y*  , 

VIPRF 

2156 

4®Y,»NCP^aLI7FC^,<^y,*POUfn*,6X,*VISOOEITY»,7y,  ♦MOP^alI  7Er»  ) 

VIPRF 

2157 

PO  PIO  1^1 ,F1 

VIPRF 

2158 

FNCPy  = A vr  (I ) / AV'>(  1 ) 3N0p^=  A V0EM5  ( I ) /AVOTNS(  1 ) 

VIPRF 

2199 

VI  SPCS  ( I)  /'^IPPOG  (1 ) 

VIPRF 

2160 

Pie'' 

91 : 

: PRTMT  c2'',alTTUD(I)  ,AVP(I)  ,pN0PM,AVDTNS(  I)  jONORM^qoUNOd)  , 

VIPRF 

2161 

IVIOPCS  (I)  ,VNOR»- 

VIPRF 

2162 

op  ■ 

' P0tMflT(F2?.%Fi;.l  ,p1'^.4,piF.7,015.4,F1F.1,Fic,7,f15.4) 

VIPRF 

216  7 

ST^'P 

VIPRF 

2164 

r NO 

VIPRF 

2165 
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PPOTR/i**  VTP'^F  7U/7t^  0OT  = i FTN  <4.P4«*14  CP/16/77  13.11.20 

cywinoLTC  RLFtPbKCt  ^AF  (R=t) 


rNTRY  PflMTS 
61f2  VI«9F 


VAPI/SFLC^ 

SK  TVO- 

PCLCCATIOK’ 

20F27 

APFHI 

pp  AL 

20626 

AHFLO 

RFAL 

a 

PP  AL 

21067 

AHI 

RFAL 

2in?*» 

PF  AL 

20632 

ALFHI 

RFAL 

2r6?i 

ALFLO 

PFAL 

20731 

ALNAHI 

RFAL 

20730 

ALMaLP 

P«^  AL 

20725 

ALKPHI 

Rc  0L 

20*^2*^ 

ALNOLC 

O’- AL 

20-^32 

ALNMAX 

RFAL 

znzy 

ALwywT 

PF  AL 

20726 

ALKXLO 

RFAL 

21066 

ALP 

or  AL 

22500 

ALPHA 

REAL 

ARRAY 

2’4.6i* 

ALT 

P'lAL 

ARRAY 

2421i» 

ALTTUn 

RFAL 

ARRAY 

2nf  f.** 

ALPFHT 

o«-AL 

23661 

AL2FLO 

REAL 

ZZU72 

A ''A  yMO 

pc  AL 

ARRAY 

20634 

AHFHI 

REAL 

2rF  37 

a^TLO 

or  AL 

20643 

AMFHAX 

R^'AL 

20630 

A^'PHI 

PPAL 

24406 

AVCENS 

RFAL 

ARRAY 

?<*311 

a 

pr  AL 

f P R f Y 

20611 

bplfhi 

RFAL 

2 06  10 

pflflc 

pr  AL 

23676 

PF70F 

RFAL 

ARRAY 

2:^27 

PFFHI 

p'-al 

2C622 

f^HFLC 

RFAL 

21C  6^ 

P6T 

P^AL 

210  46 

BLFHI 

PFAL 

Zl^tc 

pLFLP 

P*”  AL 

21064 

PLO 

REAL 

20636 

OL7FWI 

PPAL 

20  6 7F 

BL2FLP 

RFAL 

206  1? 

OMCMX 

or  AL 

20616 

PKFLC 

Rc  AL 

2^777 

PFF 

PP  al 

20713 

PUFAHI 

RFAL 

2 3712 

pufblc 

pr  AL 

207C7 

PI'FBMI 

RFAL 

2C-'1‘^ 

oLF^-^L 

PFAL 

20711 

BIIFF7H 

RFAL 

2C71.) 

PL'FF7l 

PFAL 

4 

BUF«AX 

RFAL 

KARPS 

2C7C6 

PFAL 

207C5 

PUFXLO 

RFAL 

2076? 

r 

PF  AL 

7 

r ATFRY 

RFAL 

PPLOTT 

210  7r 

nr*'F'»’ 

p:  al 

21137 

coplfm 

RFAL 

21C?1 

rrRL'*F 

op  AL 

13774 

CIA 

REAL 

2uf  ?2 

n A Aui 

pr  AL 

20651 

r lAALO 

REAL 

2'»61P 

ClAaw*- 

OPAL 

ARR  AX 

2''65u 

C1A9HI 

RFAL 

206^7 

'*  1 A PLP 

or  AL 

2C653 

Cl  AFN 

RFAL 

?ir?7 

r ^ A 

pr  Al 

21356 

riAFZL 

RFAL 

2C6P«f 

n A*'A  V 

PML 

27623 

Cl A^WE 

RFAL 

ARRAY 

2lf 

P j BMxr 

PPAL 

23646 

Cl axhi 

RFAL 

206tr 

nryLP 

Pf  al 

13742 

riP 

RFAL 

1 3‘^2R 

r2A 

PFAL 

20662 

C2AAMI 

pr  AL 

20661 

r?A ALP 

or  AL 

23663 

C2APKI 

RCAL 

2G6*'7 

r?A "LC 

pp.al 

20663 

C2AFN 

REAL 

2''6f4 

r^A’^y 

p-AL 

20656 

C2AXHI 

real 

206  ?'- 

r ? A X L p 

OPAL 

13776 

C ?c 

RCAL 

2C672 

C2"AHI 

R- AL 

23671 

C2PALO 

Rcal 

20670 

r p O u X 

PF  al 

2C6G7 

r2PPLn 

RFAL 

20673 

r^QF^’ 

or  AL 

2CS74 

C2FMAX 

RFAL 

2066^ 

C 2PXMX 

PFAL 

2''665 

rZBXLO 

RFAL 

137  37 

CA 

pc  ,AL 

20742 

C7AALn 

RFAL 

?t7?l 

C**  A ft's 

or  AL 

APR  AV 

25353 

r3AR 

RFAL 

ARRAY 

707tC 

r-tf^nui 

OPAL 

20747 

C3AFK 

RCAL 

20761 

nAXLP 

or  AL 

24x37 

C7AXP 

RFAL 

ARRAY 

•’<<707 

PXA  Y'^y 

AL 

flPP  AY 

137U0 

C3F 

RF  iL 

2?r6i 

C?"fl 

^F  al 

APR  ay 

25J27 

r3FAO 

RFAL 

ARRAY 

2<i7l.? 

r 3 p P 

PFAL 

aoR  AX 

24771 

r3BB« 

REAL 

ARRAY 
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FDorp/j 

M VIP5F 

7U/7ii  rPT  = l 

FIN  4, 

5f414 

08/16/77 

MOPI'^clPS  sk 

T Yr>' 

2ELOPATIOM 

207UU 

r 

ai 

24757 

C3fcX 

RPAL 

ARRAY 

25CC? 

or  AL 

APR  ay 

25Q15 

C 3PYHy 

real 

ARRAY 

r 1WE 

OPAL 

aoR  Bv 

13743 

r4A 

Rf  AL 

ri.'' 

P»r  ftL 

13741 

CP 

REAL 

ao7r2 

pt:  ^ L 

20701 

C'^ALO 

REAL 

20676 

r ?oMT 

01  IL 

20675 

rpELT 

Rf  AL 

2:7r  :* 

r?  ^^t 

Of  aL 

207P4 

C5  ^AX 

RPAL 

2'”’rr 

r V H T 

op  nt 

?''677 

C5XLC 

RFAL 

l'»7^5 

re 

Pf  flL 

21013 

n 

real 

2i*!  FT 

pr 

Of  at 

AORftv 

21562 

HBFL 

RFAL 

ARRAY 

2U12'* 

prMF^c 

oPAL 

A? P A V 

210  76 

RPAL 

12 

rpMor 1 

opal 

APRfv  \(^orr. 

160 

DF^'0D2 

RFAL 

ARRAY 

KARDS 

227  t4F 

n cor* 

P«  AL 

AOO  f V 

22010 

DFSPL 

RPAL 

ARRAY 

23t*35 

npi/s  1- 

PTOL 

APP  ay 

?'»310 

npiA7n 

RPAL 

ARRAY 

227Z^ 

r PI  FI  ? 

PPAL 

Af 0 AV 

23026 

neiFlb 

RFAL 

ARRAY 

22f  62 

nri  FU 

Of  at 

A p p a 

23166 

nniii 

REAL 

ARRAY 

275C'* 

Of  at 

APR  AV 

23361 

np2A?n 

RPAL 

ARRAY 

227f  5 

rc'JFi  ? 

pf  AL 

APP  AV 

p-rilS 

nP2Fl6 

RPAL 

ARRAY 

2263! 

pr?F(+ 

or  AL 

A K R A V 

23237 

0^2111 

RPAL 

ARRAY 

n r n V ^ L 

O!  AL 

APR  AY 

21  334 

DECaFL 

RPAL 

ARRAY 

1^7  27 

prLPnp 

OFAL 

21022 

pflrs 

RPAL 

2077? 

ncL  Tft" 

OF  BL 

20774 

PFLTAZ 

RFAL 

21C'>1 

n P L w 3 

or  AL 

21032 

PF  LWP 

REAL 

?l7!C 

oc 

or  aL 

211C5 

PNCRf^ 

Rf  AL 

n*’?? 

n^r  11/ 

p-ai 

13^21 

r WP 1 00 

RPAL 

137  20 

nu'-r-w' 

or 

13-^16 

oxcia 

RPAL 

137  li< 

n ymfo<s 

OL  ^L 

11 

OX^'PCl 

RPAL 

KARPS 

107 

pyMCn? 

Of  AL 

KAO  f S 

143C2 

PXIAIO 

RPAL 

1 377F 

r VI  « ■»  r 

oj-  «L 

13762 

DXlf If 

RFAL 

nv  iF  t P 

Of  AL 

13756 

nxiF4 

real 

1 37  72 

n V 1 1 11 

O'*  AL 

140L4 

nx2aic 

PEAL 

itic  r: 

ry''/\7r 

o[  ai. 

13764 

nY2Fl5 

REAL 

l'»7  73 

nv7ci f 

or  a L 

13760 

nX2F4 

REAL 

l'«77t< 

n > 1 1 1 

or  A L 

21100 

dyval 

RPAL 

2ir  FC 

F r 

OF  AL 

23  ■'52 

f CCATi 

RPAL 

207*^3 

or  A L 

FC^'OVE 

RPAL 

KAROS 

21<'  17 

‘"CO 

or  aL 

24174 

FLX 

REAL 

ARRAY 

21C  7? 

F L vnr 

or.AL 

21101 

FLXl 

RPAL 

2ir 

rt  ^Fuj 

or  A L 

’1  0F3 

FL2FLO 

Rp  a 

2ir7? 

rMfiv 

or  AL 

006  :? 

F^^AXGF 

RPAL 

2:6c- 

F w/\  yur 

or  at 

2C576 

fmaxff 

RPAL 

20610 

P*'?MT 

or  A L 

2C614 

fmflc 

RPAL 

21601 

F VT  r.  c 

or-L 

20577 

FMINUP 

RPAL 

;?rr  7c 

r K j HI  F F 

opal 

0 

F^' 

RPAL 

KAROS 

23F7-* 

Frp 1 uF 

or  al 

rt  P 0 n V 

211C6 

FRcn 

Rf  AL 

array 

'1C  20 

rc<' 

Of  A L 

22^36 

•"FFL 

RFAL 

ARRAY 

2^201 

r? 

or  AL 

^CP  AV 

21023 

F7HFUI 

real 

21c 

F "^UFL  r 

or  A L 

21071 

F7HI 

RPAL 

2ir<'t- 

?7L  F’-(t 

o-AL 

210  43 

F7LPL0 

Rf  AL 

2107'' 

F7LP 

or  AL 

21035 

FZ^'FHI 

RPAL 

?ir  7L 

F 7 **- L '* 

O'  ".L 

20 ''76 

F 7PP 

RFAL 

? 

F 

p'  a L 

‘^aorc 

0 

M 

REAL 

pcLCTT 

?U2iU 

WTLO 

Of  AL 

A ? R • V 

45 

MITF. 

RPAL 

PPLCTT 

L e 

*■’  T 1 

or  AL 

ppiriT 

20603 

H»^AX 

REAL 

2 c 7 ? 

T 

jnj  r r cp 

13732 

I ALU'^ 

TKTFEER 

137P3 

171* 

TMTf 'FP 

13752 

I A^D 

INTPr;PP 

?7 

tmt • 'rf 

oolotT 

3-'5 

ipufet 

I KTE^fP 

KAROS 
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D:Tprp«»4  WXD-JP 

7U/7U 

noT^l 

TIN  4, 

5+414 

OP/ie/77 

VAPIftEL 

r 5 «:  K' 

Tfo; 

RELOCA’^'inN 

2?7f  1 

Tr*^ 

TNTL'LR 

20755 

I{ RRCR 

INTEGER 

21^-7 

IFIPIT 

IF'TFrrrR 

5 

IFLITE 

INTFGFP 

PPLOTT 

TF^’ 

X M T c r F p 

•*41 

IFMSH 

INTFGER 

KAROS 

n7Pl 

TF111 

T M T C E P 

117^47 

IF15 

IF'TEGFR 

137PC 

TF!^ 

XMTt*';cp 

1371+6 

IF4 

INTFGFR 

TMT--CP 

AFP  AV 

2''757 

II 

integer 

TL'MP 

r'Tc-.FP 

KARTS 

1C 

ILINEl 

INTEGER 

ARRAY 

PPLCTT 

3714 

TrTp'tpp 

ARP  AV 

KARTS 

13737 

I HAS 

INT'^GFR 

T K 0 P L ’ 

TW^E^EP 

dolctt 

55 

IPHASE 

INTEGER 

PPLCTT 

T r ^ Kt 

T^TC^FR 

APR  AY 

PDLTTT 

20607 

IPLOT 

integer 

’•»L 

icf»K.ni 

I^'TE'^FP 

KAROS 

13730 

ISTRSL 

INTFGFR 

: TP 

X •^AK’^'P 

T^’TrrEp 

KARPS 

13731 

ITITAN 

INTEGER 

17 

ttttli 

TNTC'rP 

ACR  AY 

fplttt 

3I4O 

ITURP 

TNTEGF.P 

KAROS 

2 ]*’(  2 

TX 

2C’'60 

J 

integer 

2C7te 

• IFL  it 

Tf-Tr-cp 

213r«l 

K 

INTEGER 

2l''ti2 

1. 

I*'’TT-CR 

31 

LXNAMc 

INTEGER 

ARRAY 

PPLCTT 

1C 

L 

X^«Tr  r^p 

ASR  AY 

fplttt 

20755 

M 

INTFGFR 

MpTr*?L 

T^'Tl'TP 

13*^12 

NEFTPP 

INTEGFR 

1371^ 

NCI  A 

XMTrrpp 

2j737 

Nr3 

INTFGTR 

137  26 

Nrn° 

TM'^E’EP 

13713 

N“FRS 

INTEGER 

1C 

Vf'OnFi 

XNTTPP 

KARTS 

15S 

MPOricp 

INTFGFR 

K ARCS 

21CT'» 

NP"r 

JH^P^PP 

20574 

NPSVAL 

integer 

1372? 

M Wl-  IK 

l^jrr^O 

17720 

NWE  100 

INTEGER 

1 •*7?<4 

Mwr 

T»'TF'“EP 

14301 

NIAIO 

integer 

1 

?J  1 A 7 n 

TM’F^FP 

13771 

►UFlll 

INTEGFR 

13761 

f'  iFi  r 

T^'jr  -fp 

13765 

N1F16 

INTEGFR 

1 376F 

M1  f/, 

IN7L^IP 

140C3 

N2A10 

integer 

1’7*»7 

M?/^7n 

13-^  *^3 

N2F111 

INTCf;pp 

177P-* 

X^•Tc-Fp 

13767 

H2F16 

INTEGER 

137E-' 

N2''t 

tmtf.':fp 

21061 

PEAK 

real 

21CC0 

n c ♦* 

ocat 

213C1 

PFHne 

REAL 

1 '*7*^» 

pi"  AL 

21104 

PNCRH 

REAL 

9'. 777 

o^n 

Of  ^ L 

20766 

R 

REAL 

2Q'^77 

PfV 

:^r  a i_ 

23  7f7 

Rf’ORY 

real 

3 

pc 

r'E  AL 

POLOTT 

23604 

p c H A y 

RTAL 

?i*t  21 

R'VAL*^ 

r>r  [,i 

APR  A V 

21010 

SAHI 

RE  iL 

2inr-^ 

<'fLO 

Pt  M. 

21306 

SPHI 

REfiL 

21C21 

c'tlo 

peal 

21314 

SPT'^0 

RTAL 

21C  11 

Sr^L*^  A 

Rc  M 

21015 

SFZHI 

REAL 

2ir  12 

^F^LO 

pr  A L 

24210 

<;iGN 

REAL 

ARRAY 

cc'tvn 

or  at 

APR  AY 

21316 

‘^PFAK 

RPAL 

210C*^ 

C),PX 

RPAL 

21304 

SXLO 

REAL 

2^761 

T 

DEAL 

20-^22 

takahi 

RT  AL 

707  21 

T flK;iLr 

Rr  al 

20716 

7AKPHI 

RPAL 

2 C7  1^ 

T Akolp 

real 

20  •'23 

T AKYAX 

RTAL 

20720 

•/iw'ywx 

O'"  AL 

2C717 

takxlo 

REAL 

2r7'»L 

T r AMT 

9F  AL 

20  7 33 

TTFHT 

REAL 

2^73*^ 

T rrp 

pc  al 

2C736 

TPREF 

REAL 

L7 

▼ 

OPAL 

oolcTT 

24170 

TWCP 

real 

ARRAY 

2if7L 

pr  AL 

207^1 

II 

REAL 

2''76A 

V 

or  AL 

2357? 

VALK 

RCAL 

ARRAY 

?<46CC 

TSCP^ 

or  AL 

A6R  ay 

20770 

VNCR^* 

RtAL 

L 

W- 

•’F  AL 

cr»LrTT 

23554 

WFK 

R‘^AL 

ARRAY 

2'*6^P 

WT  Mfty 

?f  AL 

24374 

WE  100 

REAL 

ARRAY 

2aif  7 

WEicj? 

prf  L 

ARRAY 

24112 

WF50GC 

RFAL 

ARRAY 

r 

WE 

O’"  ' L 

POLCTT 

2 

y 

REAL 

PPLCTT 

^ li 

y AYI5 

or  'L 

POLTTT 

5 

XBT 

RE  H 

KAROC 
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npnrp^w  vjopp 


7^/714 


FTN  OP/lf^/77  13.11,?P 


VAPIfiFL^S 

T y p - 

PcLOrATTor' 

L 1 

XTYClI; 

Pf  ai 

POLOTT 

2^  Yf*7 

XL 

RF  il 

y c 7 p •<  Y 

pr  i L 

A t p A V 

211-^3 

XPFCCF 

RF  /L 

?ir  ?7 

y*-chT 

P*"  iL 

21026 

XHPLr 

FF  /L 

^I'^r? 

Y p r M V 

f’T  IL 

21063 

YHI 

R*"  ll 

y ir'C-*  - 

Pf  '‘L 

210^40 

xLFcrp 

RF  ,L 

2ir  CP 

Yl  FHI 

AL 

213^47 

XL^LO 

rfal 

1 

Y^rM/^  y 

pf  i|_ 

•^ARTF 

21062 

XLC 

RF  AL 

’1CE2 

Y [ *5  c r p 

or  i L 

2C6i40 

XL2FMI 

RFAL 

2 f-  7 - 

VL'^rL^' 

'-•r  AL 

3 

XL2FPy 

rfal 

1 

Yk'flKN'O 

P"AL 

r^PtriT 

21076 

ypFccR 

R«^AL 

2 :<=>?! 

X^rni 

o[  it 

20620 

xyflc 

RFAL 

?icr? 

V wr  Mi y 

<^r  i L 

2C605 

ypF 

R«"AL 

c 

XTL 

pc  A L 

Y A P S 

21  1 03 

XVAL 

F'^AL 

ft' 

XV 

■^r:  5L 

PPlotT 

20625 

XXHFHI 

RFAL 

X v^FL  r 

H 

20  613 

XYLf^MI 

RFAL 

2:612 

X VI  FL^ 

c»-Al 

50 

XI 

pc/^L 

*^1 

y? 

pr  A L 

PhLO'ct 

^^2 

Y 7 

RFAL 

C T 

y 

PC  AL 

PPLOTT 

^3 

Y AXIS 

RFAL 

U7 

Y F T c 

nr  AL 

PPLOTT 

21102 

YVAL 

RFAL 

FTL^  ► 

r f 

M-,n- 

TtP'IT 

c^  T 

2Ci^l  niTPljT 

CMT 

^'l  02 

FLFILF 

FVTFPf  /'L  5 

T y ->F 

APrc 

0:^  AL 

^ L'''’~0=>Y 

A Ta^■9 

REAL 

n f S fl  L p 

1 

clta 

rrMO;^*:; 

c 

ri'RVc 

rcr'F'’L 

c 

CNTPL 

pfr 

or 

1 

r,  PC  I NTS 

mptcmt 

i 

LOC'^PX  A 

M /*  p y “ p 

1 

^^IXAL*^ 

p^r  FiiM 

21 

PI'AP 

p F ^ pp  p c 

1- 

P 1 S L 

PLmc-c 

L 

'^lreal 

T^F  PI.  T ► 

c 

TPOPLN 

y rrprijf 

1’ 

Y AY ANS 

Y T»’T  AX 

C 

TKLIN- 

‘"l^'^.TTP^  c 

-Y-F 

CPr  c 

arc 

orf  L 

^ I r.'  T P 1 N' 

AMOD 

RFAL 

KAPCS 


PPiriT 

PPLCTT 

POLCTT 


n Tflpp5 


2 LIERARY 

0 

4 

1 
17 
17 

1 

R 

1 

l, 

e 

1 


? INTRIN 


ftatfk 

CMT 

L AP'^LF 

6377 

1 

64  tc 

4 

7121 

7 

F513 

1 r 

7212 

•1  ■; 

1427-> 

1 f- 

F VT 

FT  64 

1 c 

7222 

22 

14  0?: 

•?  r 

rvT 

716'^ 

'’6 

671  ti 

71 

722-' 

7L 

i«4ii: 

■»7 

CMT 

64  22 

4 

64  2*: 

4 '' 

1 4 7 ■*’  3 

7 

FMT 

147C7 

7 

CMT 

lH7f 

S 

FMT 

65^7 

652*= 

14 

•j 

17 

6414 

20 

F 576 

27 

6417 

76 

1416  V 

7q 

PMT 

7046 

7 -> 

7 ul7 

cr; 

141'>4 

75 

FMT 

6465 

41 

7 24  1 

44 

7141 

7 

14665 

6 

FMT 

65C1 

Q 

7177 

12 

14014 

15 

FMT 

6552 

1« 

7C  17 

21 

1436  0 

24 

FMT 

6464 

77 

7031 

30 

14C54 

7 7 

CMT 

14072 

36 

F“T 

14147 

30 

FMT 

0 

42 

7264 

45 

FMT 
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PTN 


08/16/77  13,11.28 


STAT^prMT 


<46 

64‘»5 

47 

6433 

48 

5 

14416 

52 

FMT 

6664 

54 

6710 

6^774 

6676 

60 

67^46 

6? 

672? 

64 

6760 

66 

677? 

66 

7uC4 

70 

6612 

74 

^t?k 

76 

7172 

7320 

90 

73*4^ 

q? 

7346 

q4 

7354 

96 

73*^7 

ICC 

15060 

205 

FMT 

151C4 

210 

FHT 

1F1F6 

220 

PHT 

15164 

225 

FMT 

15246 

230 

FHT 

1F2F5 

93c 

P-T 

7463 

?39 

15333 

240 

FHT 

1^3f  3 

?fc5 

PWT 

15735 

?46 

FHT 

7510 

247 

75  24 

25r 

15473 

251 

FHT 

7563 

252 

7676 

2^3 

15523 

’54 

PHT 

156C7 

255 

FH’ 

76?? 

7727 

?57 

15670 

260 

FMT 

77  31 

?^r 

3 

310 

7760 

115 

776^ 

32'- 

10013 

7?1 

10022 

322 

10005 

327 

10027 

325 

10043 

330 

looFr 

335 

10055 

343 

1C063 

350 

inn 

3*^1 

15454 

352 

FHT 

15737 

353 

FHT 

iec*^4 

7 04- 

CMJ 

1577? 

355 

FHT 

1C136 

356 

IJIFC* 

770 

10116 

375 

161C1 

380 

FHT 

161*^4 

362 

P**! 

15751 

’8? 

FHT 

16231 

385 

FHT 

ic?cp 

'fP7 

10321 

789 

16344 

390 

FHT 

10267 

3C*» 

1C233 

395 

10357 

398 

1036  7 

^ rr 

10  773 

410 

1C432 

415 

ie73<' 

4?C 

CMT 

16771 

4?5 

PHT 

1C747 

427 

ini*6c 

<4  31 

10514 

437 

10642 

435 

U757 

436 

1102*^ 

437 

170C6 

4*»8 

FHT 

165  77 

u **0 

PVT 

11376 

440 

17017 

441 

FHT 

10556 

uu'y 

10574 

447 

1C6C5 

444 

10667 

Ll^f- 

1C7C4 

447 

10615 

446 

ir-^2? 

LLQ 

115l  6 

45? 

17162 

451 

FHT 

11*^  1? 

45? 

0 

457 

17234 

455 

FHT 

11606 

4 cc, 

11522 

457 

17111 

458 

FMT 

11365 

b r 0 

J 

4 6’ 

17220 

461 

FHT 

11<*?1 

46’ 

0 

465 

11467 

466 

11451 

467 

1146 : 

u72 

11647 

473 

11671 

47c 

11677 

4 80 

11716 

505 

i?r«4** 

5P7 

117?6 

n08 

17252 

509 

FHT 

172*»1 

11 

rvT 

17304 

71? 

TMT 

17341 

513 

FHT 

1?1  35 

rta 

1?2C  ^ 

518 

12213 

52C 

17<*11 

5 21 

C «4T 

1126'^ 

580 

11320 

590 

lie  74 

6C^ 

17J33 

b05 

FHT 

11162 

61C 

112C'' 

620 

ll?0c 

6?r 

11235 

610 

112*^1 

64: 

770 

1222? 

774 

1?26‘^ 

77: 

•3 

’80 

12276 

785 

123CC 

7P-r 

1 2 ■*  1 1 

788 

12313 

789 

17611 

7 cf* 

P V’’ 

1234? 

793 

12344 

79*^ 

l?'«fl 

0 CP 

2237? 

805 

12427 

810 

12507 

62C 

1?513 

840 

12517 

86C 

1?5«*4 

per 

1770  3 

9J? 

FHT 

u 

910 

I??*-! 

rwT 

12526 

1000 

LCOpc 

LPOPL 

INpf  X 

cpf  fc-Tr 

LENGTH 

®90P5RTI'^S 

6360 

* I 

775  773 

ion 

EXT  REFS 

fuec 

<*2 

I 

9?5  P’6 

■7  Q 

IM9TAC‘<' 

70  6 0 

ICCO 

6 I 

944  2130 

745in 

EXT  REFS  NOT  INKER 

171 


AFFDL-TR-77-101 


pa^rcrH  C^Frl 


LCnF^ 

1.  r^^EL 

IKPf  X 

7iLU 

1 7 

IT 

77^7 

i r 

♦ J 

11^76 

* IT 

• TT 

11^' 2 7 

L^3 

77^ 

TT 

1??7? 

-*  c r 

T-^ 

1 

on 

• I 

ro  r 

TC 

Ll^<~TH 

SPC 

c p •? 

(i  o 

IT'-C 

1?:3 

FT 

177^ 

177E 

273 

177  = 

17  32 

pm 

la  ■'  = 

ipm 

3B 

?:  1 2 

2017 

70 

2i2  2 

po 

21f  7 

21F0 

P3  0 

PROPL^TIE'^ 

IM’^T  'V^K 

IMST/VC*^  FylTS 
EXT  REFS 
rxT  rffs 

INST  ant< 

INST'\r,K 
INPT ACK 

EXT  RFFF 


(*puvCK  rJLPri/c 
PFLOTT 

\(  [)OV^ 


CTN  + 


EXITS 


S'^ATI’^Tirc* 
pprjfP^N 
»'tFFr  p LI  K'‘TM 

L 'NGTP 


l7'ol7B 

T17? 

L-ppP  27U 


3P/16/77  13.11.?P 
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c '’4/7-<  roT  = l 


FTM  + 


Oe/16/77  17.11.?^' 


1 


c J 


Sl'^POVTIKc  OF  7FM,7LFHAX,  ZP2N,  ZL2‘^MX,2BUFHX,ZXPT,ZyTL, 

VIPRF 

21fi6 

17FrMr\i  , KC^CPl  , rvil , OPHl , 'JOMOn  ^ , HXM  2 , C°M  2 , IT  YP  F K , TCP  A FT  , IE  RFC  R ) 

VIPRF 

2167 

VIPRF 

2168 

rr'^MCK'/xA'^rs/FK , YL'^^'flx  ,p?M,  xl2fmx,bufyax  ,xot,  ytl,fcmovp  , 

VIPRF 

2169 

l^  «cnFi , ( ir  •< ) jNhooez  ,nxMCP2 , op^^oozdoo, 

VIPRF 

2170 

2ILIK'C2  (8)  ,TSCKrL  , IPU»^ET,  ITA<OF,Il.ftNn,ITURF,IFKTSW 

VIPRF 

2171 

VIPRF 

2172 

n-rNCTON  :"»^l(l>  ,90^-?  fl)  jID^TA  (ft) 

VIPRF 

2173 

VIPRF 

2174 

TATA  TPl.  fNY/lH  / 

VIPRF 

2175 

VIPRF 

2176 

TrrjpoprQ 

VIPRF 

2177 

VIPRF 

2178 

VIPRF 

2179 

» * 

VIPRF 

2180 

P**AC  l^cuT  C''Fn  L 

VIPRF 

2181 

» ♦ 

VIPRF 

2182 

VIPRF 

2183 

R'=^»0  (•■, ’0)  ILI^'^ 

VIPRF 

2184 

“ FO^YAT  ( fi  A^  *') 

VIPPF 

2185 

VIPRF 

2186 

VIPRF 

2187 

rH'CY  MWCTHrP  ••-MP-OF- JTP"  CAPP  WAS  PF^P 

VIPRF 

2188 

VIPRF 

2189 

IF  ('"OF  (e>  ) . E*^.  C)  GO  TP  110 

VIPRF 

2190 

VIPRF 

21'^! 

PRT^'T  Af 

VIPRF 

219? 

' POR“AT  ( IP- ,^AX  ,*THF  FNC-O'^-JP^  CARO  V»AS  FNCOUWTpRpn  If.'STEAC  CF 

THE 

VIPRF 

21^3 

1 u-yo^r’^r») 

VIPRF 

2104 

i^PI^'T  A7 

VIPRF 

2195 

i’  FCO'^AT  (?qv,*nficpj  L£  rfiFAWETERS-SOEriAL  VAlIE^  CARP,*) 

VIPRF 

2196 

VIPRF 

2197 

IF(ITVCFK.t^.l)  Fp  TP 

VIPRF 

2198 

VIPPF 

2199 

FRImt 

VIPRF 

2200 

, ; FOphAT  (2CY,  •'DROFRA^  Fyrrr'jjjIOW  STOPS  EZCA'JSc*) 

VIPRF 

220  1 

PRINT  k7 

VIPRF 

2202 

PC^'-'AT  (2ox»  •T^FLT  PATA  '/AL'IES  ARE  NOT  <^TOP5D  IN  THE  FPOC-RA^'  FOP  Th 

VIPRF 

2203 

IP  S^triFItc  TYP'=’  ff  aircraft*  / 29X,*\/AL  UP’S  ARE  STOPEO  ONLY  FOR 

THE 

VIPRF 

2204 

pryops  F-/,  ,:^-lC,F-lF,'^-lll,A-lO  AND  A-70  AIRCRAFT,*) 

VIPRF 

2205 

PALL  rc^'PFL 

VIPRF 

2206 

«'T'^P 

VIPRF 

2207 

VIPRF 

2 20  8 

■;  lL?PCR-ii  '^OPINT  6C 

VIPRF 

2209 

FQf’^'ATf 

VIPRF 

2210 

11H-,?FX,  *PRPGRr»-  cyr'^iiTION  PROC'^ECS  ASSl^^ING  THAT  A PlANK  " 

PROF 

VIPRF 

2211 

IIL-  PAR  A*^;- TPPS-S^TIAL  VALM'^S**  CARD  ♦ /ZRX  ,*  THE  N A "FINISH**  CARO 

SHO 

VIPRF 

2212 

7Ur  HAVl  POLLCWro  THf  "AIRCRAFT  » AR  A ^'LTE  RP***  CARO,*) 

VIPRF 

2213 

VIPRF 

2214 

pK=7Ff  YLP*'AX  = 7L‘"HAY  :.p2N=7P2N  X L ?F*"X=  ZL  ZFM  X $ PUFM  A X=  ZPUFHX 

VIPRF 

2 215 

XFT^ZXFT  «yTL  = 7XTL  !PC»'OV'^=7PCmov; 

VIPRF 

2216 

PRINT  f 7 .FN.ylF^AX  ,F2N,XL2'"MX  , BUFMAX  , XBT  , XTL  ♦ pCmOVF 

VIPPF 

2217 

P0R“AT  (IH- ,?8X  ,*PFOFIL^  ’’AR  AHETCRS- PEC  I A L V A LUES  , INPUT  DATA  VALUE 

VIPRF 

2218 

IE  ETPR'^0  IN  FRCGRA»-*/'>PX  , ‘^FiC  , 1) 

VIPRF 

2219 

VIPRF 

2220 

7'  KMonr  i = Nr»*CPl  ? 0X^nCl  = '"X'<l 

VIPRF 

2221 

ro  ®:  i=i,N»'orpi 

VIPRF 

2222 
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1 “C 


1 1: 


7U/7*>  <"^>1  = 1 

Oe/16/77 

13.11 

: r?Mrr 3 (I  ) 

VIPPF 

2223 

j = euFTR<;T  'fPcirjT  ®5.,J,’J‘-OOPl,DVMOni,  (CRMOCl  (T)  ,I  = 1,NM00E1) 

VIPRF 

2224 

VIPRF 

2225 

ro:>MftT  ( iH%  , ac, ,»  MQnr  Vft  L L'ES  , I N PUT  ':flTA  vr/iLUES  5TCRFD 

I VIPRF 

2226 

IK  PP3rR/\»'*/2qy,i3,13«^6.?/(2nx,i'»P6.’)) 

VIPRF 

22’7 

^ ro  Tn  i-io 

VIPRF 

2228 

VIPRF 

2229 

p-jy'-T 

VIPRF 

2230 

VIPRF 

223  1 

^ rOPM/^7  ( , ♦s‘^rON»^  R’INTIN';  MODF  VftLUFS  WILL  MQT  PF  USEF 

IN  PRC  VIPRF 

2232 

ICPCM  r/jL  CL'L0TICMS’/2CY,*3r^/^(j3r  r = C . * / 3 PX  , • ?N*  ) 

VIPRF 

2233 

Fc  Tl’PK 

VIPRF 

2234 

■ f.M'‘r£2  rMr‘-c'"? 

VIPPF 

2235 

VIPRF 

2236 

FR  T = l,t*4CnE’ 

VIPRF 

2 237 

■ FP'^CC?  r I ) -^pm2  (x> 

VIPPF 

2 2'»fl 

VIPRF 

22Tq 

j = cHcr  rOKF  5PRT\'T  PT  , J,NHnnc2  , nXHnnz  , (CB^CC2  ( I)  , T = 1 ,NWCDE2) 

VIPRF 

2 240 

VIPRF 

2 2 4 1 

Rf^TUR^ 

V IPPF 

2242 

VIPRF 

2243 

•TifTCM"  ^,\QO  was  RF^D 

VIPRF 

2 24  4 

VIPRF 

2245 

VIPRF 

2 24  6 

IF  (IlT*'c  ?fl)  .^''",IF^•ISM)  SO  T'^  IBO 

VIPRF 

2 247 

VIPPF 

2 248 

PRIf'T  IE" 

VIPPF 

2249 

FOR^^aT  ( 1 M- , ?8X  , »T  wp  ••FIMISH”  CARO  WAF  pNOOLNTPRFO  I’^FTFAH  CF 

the 

P VIPRF 

2250 

IXP'TTFC^  > 

VIPRF 

225  1 

PRTMT  i.3 

VIPPF 

225? 

Tr  (TTvr  3Y.  r^.  i)  r.Q.  yr 

VIPRF 

2253 

VIPRF 

2254 

i:^pcp=i  r^RivT  i-r 

VIPRF 

2255 

VIPRF 

22F6 

pn  ( ;50Y,  ■Dpor,p^^  OROCEEHS  TO  TH£  NFXT  S:T,ir  flNY.CF  IKPUT 

r VIPRF 

2257 

lf.Tl  CSR^F  '■»TflUS'^*) 

VIPRF 

??59 

PRTVT  U7  '^RCTUR*' 

VIPRF 

2259 

VIPRF 

2260 

"PIK'T  cr  ‘IC  7F  <=)? 

VIPRF 

2 26  1 

VIPRF 

2262 

^H-rry  uMf-Tw-p  ••O'F^RTOTTOM**  OAPD  WAS  READ 

VIPRF 

2263 

VIPRF 

2264 

T=ILTKF?(4>  «IP(I  .ME.  TSAr4nL  . A^Jn.  I .NF.  I^UFFT.  ANO.  I.NF,  ITAKCF. 

VIPRF 

2265 

AND, 

VIDRF 

2266 

lI.NL.TLAKn.ftMn.I.^T.T'^MR'*)  SO  TO  20  7 

VIPRF 

2267 

VI«RF 

2268 

PR  TMT  1 ® ^ 

VIPRF 

2269 

format  ( 1 H- , £0  Y,  ♦thf  racn  sho'^m  bflpw  appapfntlt  is  a "CF  SCRIF*»'I0N 

••  VIPRF 

2270 

1 C apr* /?gY  ^•w.htow  wA^^  rMOOUNTEFFH  IMSTLAQ  CF  THF  IXOFFTED*) 

VIPRF 

2271 

PRIMT 

VIPRF 

2272 

ppt^jt  1 , IlTN-'"2 

VIPRF 

2273 

formbt  nF'*,?px,aai(:*) 

VIPRF 

2274 

TF  (ITVP'' y, 1)  so  TO  £tn 

VIPRF 

2275 

VIPRF 

2276 

If  -OQPr  '» 

VIPRF 

2277 

VIPRF 

2278 

pRTMT  IQC 

VIPRF 

2279 
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SIHROUTIFF  1 

pe-An^PS  7U/7U  OPT=l  PTN  U.S^UIU  0 

8/16/77 

13.11 

115 

19"  FORMAT  ClH-,28y,»IT  IS  ASSUMED  THAT  THIS  APPARENT  ••CESrPI® TIO^••  CAR 

VIPRF 

2280 

in»/29y,*FrLCNGS  to  TMS  MSXT  SET, if  any, of  input  data  CARDS,*/ 

VIPRF 

2281 

229X,*AKD  TMF  PROSFAM  pt?nccros  TO  THIS  SET.*) 

VIPRF 

2282 

CPTURK 

VIPRF 

2283 

VIPRF 

228A 

120 

21j  !rRRCR=T  TORINT  6C  JPRIMT  200 

VIPRF 

2285 

?Ga  F0RHATf2ov,»iT  AL’-P  IS  ASSUMED  THAT  THIS  APPARENT  "OESCFIPTICN-  CA 

VIPRF 

2 2 86 

1PD*/2«^>',*<''L0NPS  TO  THE  NEXT  SET, IF  ANY,  OF  INPUT  DATA  CARDS.*) 

VIPRF 

2287 

GO  TO  <^5 

VIPRF 

2288 

VIPRF 

2289 

125 

VIPRF 

2290 

c 

CHCrx  VALUE  IN  CAPO  COLUMNS  75-80 

VIPRF 

2291 

VIPRF 

2292 

LNCOOr  (lC,23r,I)  TLlMr?(^) 

VIPRF 

2293 

205  format (R6) 

VIPRF 

229A 

i:^p 

rEPODF (1C,2C7,I>  YFCMOV 

VIPRF 

2295 

?:■»  F03MAT(Pe.2) 

VIPRF 

2296 

IF  (VFr»'ov.GF.  r, ) ro  to  220 

VIPRF 

2297 

VIPRF 

2298 

VIPRF 

2299 

12^  r 

CARP  A^SUMEP  TP  BF  CARD  1 OF  THE  SET  OF  IS^  BENCInP  MODE  VAL.  C 

VIPRF 

2 300 

VIPRF 

2301 

DR  TUT  21  T 

VIPRF 

2302 

21"*  FORMAT  (lH-,2ftX,*THr  CARO  SHOWN  OELOW  APPARFNTL>'  IS  CARD  1 CF  THF  S 

VIPRF 

2 303 

lET  nF*/2Qy,*lST  D*‘uniNF  mode  value  CARDS  iNSTFAn  OF  THE  EXPECTED*) 

VIPRF 

230A 

l^'C 

PRINT  AT  tORiNT  lf5,ILlN-2 

VIPRF 

2305 

VIPRF 

2 306 

TFdTYFOK.EC.  1)  GO  TP  21  t 

VIPRF 

2307 

VIPRF 

2308 

PRINT  A?  *DPINT  A7 

VIPRF 

2309 

1 

call  rCNtPL  SSTOP 

VIPRF 

2310 

VIPRF 

2311 

217  PRINT  21*^ 

VIPRF 

2312 

21^;  FORMAT  (lH-,2Py,•DPOGRA^  EXECUTION  PROCEEDS  ASSUMING  THAT  A BLANK  ” 

VIPRF 

2713 

IFROFIL'"  PARA^-tTIR^'-ForniAL  '»ALUFS“  C ARC* /29X  , *SHOUL  0 HAVE  FRECFFOS 

VIPPF 

231A 

15C 

2n  THIS  CARf',*) 

VIPPF 

2315 

VIPRF 

2316 

c^r?F^  SXLPmax  = ZLFMAX  fXLpFMXr  7L2FMy  FBUFMAXr  ZBUFHX 

VIPRF 

2317 

XDT=7vet  *XTL  = ?XTL  JFO*'OVr=7POMOV 

VIPRF 

2318 

VIPRF 

2319 

PRINT  2e  C,FN, XlFMex,r2N, XL2FMy ,buFmax,XBT ,XTL  ,DCMOVE 

VIPRF 

2320 

VIPRF 

2321 

MCAPr<^  = l «NMOPDrc;HFlPST  '^I*^ODCK=l 

VIPRF 

2322 

GO  TC  ^7r 

VIPRF 

2 323 

VIPRF 

232A 

Iff' 

VIPRF 

2325 

c 

CARO  IS  ASSL'MEP  TP  Df  the  “PROFILE  F A R A Ml  TERS -SPEC  I A L VALUES**  CARO 

VIPRF 

2 326 

VIPPF 

2327 

22*  IF(TTYFC»^.'P.1)  go  to  23U 

VIPRF 

2328 

VIdrf 

2329 

CE''CC«'  (8C,  22  5,ILIU'^2)  fn  , XL  FM  A X,  F2N  , XL2FMX  , PUFM  A X , X3T  , XTL  , ECHO  VE 

VIPRP 

2330 

22'  FORMAT  (PFn.T) 

VIPPF 

2331 

PRTmT  2’7,lLIMr? 

VIPRF 

2332 

22^  format (1H-,28X,*®fofild  ^AR AMETERS-SPECI AL  VALUES  CARF* / 29X , 6 A1 0) 

VIPRF 

2333 

CO  '*’0  2?^ 

VIPPF 

233A 

17^ 

VIPPF 

2335 

23:  F^  = 7F^  ? XLFmAX  = 7LFHAX  'fF2N=ZF2N  S XL  2F  MX=  7L  2F  MX  f RUFM  A X=  Z0UFMX 

VIPRF 

2336 

28 
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^IDPOU 


17F 


1 pr 


1 


I O'* 


1 


?rr 


2 1 ^ 


??*• 


? ’F 


7k/7U  0'^T  = 1 

FTN 

4,54-43  4 

08716/77 

13.11. 

yr>x-7vr-T  ?yTL=7XTL  : vr  = zfomqv/ 

VIPRF 

23'*7 

VIPRF 

2338 

.J=t^ 

VIPRF 

2339 

VIPRF 

2340 

PC  1=1,'* 

VIPRF 

2 341 

n GP  TP  Z-'O 

VIPRF 

2342 

?.U'  rc^TI^L" 

VIPRF 

2343 

VIPRF 

2344 

VIPRF 

2345 

PPT^'T  per  ,PN,  XLFMfkX,  F2N,  XL?FMX,  9ijFMAy,ynT,XTL 

jt^rMovE 

VIPRF 

2346 

?r.  FO  >HA1  ( 1 FT  ,?‘^V  ,*OPOFIL»"  ^ARAM-TdRS-PPECI  AL  VALUES 

OAPC, INPUT 

DATA 

VIPRF 

2347 

IVALUP'  cyn^iPn  IN  pRor.oftMfA  niANK  CARP  WAS  READ)  ♦/ 

VIPRF 

2348 

229^, PFIC  .t> 

VIPRF 

2349 

GO  TP  *? q « 

VIPRF 

2350 

VIPRF 

2351 

VIPRF 

2 35  2 

-7  rp^'OP*'  («C  ,’2^  1ILI^F’)  vf  m , Y l*^  M A X , Y F 2 N , Y L 2F ‘'X  , 

vquFHv, yxpt , yxtl  , 

VIPRF 

2 353 

lYFfMCV 

VIPRF 

2 354 

VIPRF 

2 355 

J=  “H  ♦ 

VIPRF 

2356 

PO  ^77  1=1,“ 

\ IPPF 

2357 

'>77  IDiTA(T)=lw 

. ir-RF 

2 3^8 

V iPR'^ 

2 3 5 

I F (YF^  , F 0 , C . ) GO  TO  ?‘»n 

VIPRF 

2 36  0 

FL  = YF»  i:iriTA(l)  = J 

V IPRF 

2361 

?«:  IF  (YL'^^'A  V .rn,  J^)  ro  TO 

VIPRF 

2 262 

yLCK-AYrVLt^^'AX  ;IPATAf’>  = .l 

V IPRF 

2 36T 

9P-*  IF  ( YFpr  . c^.  C.  ) GO  TO  204 

VIPRF 

2 364 

r^>K-YP?M  »:rATA(3)-vJ 

VIDRF 

2365 

->  pu  IF  (yl’Fmy, fP  Yo  ’ se 

V IPpF 

2 366 

XLpP^-XrYLP-“X  ?in£TA(4)=J 

VIPRF 

2 36,7 

^or  JP  ( YQVCM  X , '’0,  0 . ) GO  "^0  ?9ft 

VIPRF 

2368 

PljrM/jy  = yr|ici#y  =inATA(*.  )rj 

VIPRF 

2369 

?P^  IF  ( YX*"  T . . C . > GO  TO  2*3'] 

VIPRF 

2370 

ynTrYV^T  ••  I ^ A T A f - J 

VIPRF 

2 37  1 

JFfYXTL.fr.T.)  on  TO  '’*3? 

VIPRF 

237? 

XTL  = Yy  TL  * [rATA(-'>=  j 

VIPRF 

2 37  ’ 

IF  (YFr*^0V.  GO  -rn  nqt* 

VIPRF 

2 374 

rcwrx*"  = Y r<'»'CV  5TnATAf‘^)=J 

V IPRF 

2375 

VIPRF 

2376 

■5C*  PRINT  ?9^  , F N , XLFMAY  , F2^,  VL2FMX  , nuFHAX  , XRT  , YTL 

tPPHOVE, lOATA 

VIPRF 

2 377 

per  PC3»*AT  ( lH-,7PX,*^RnFlL'’  ^AR A^ITCRS-SPEOI  At  VALUES 

GAPP, INPUT 

DATA 

VIPRF 

237ft 

IVALL'E'^  pear  PRCM  OAPr  r^o  STORIO  IN  oroGRAY^/ 

pqx, 

p'^io.i/poy, 

f AlO/ 

VIPRF 

2 370 

2?3Y,3?»-*  T\GICATtr  VALLE  ^ran  TROH  CARD  ) 

VIPRF 

2380 

V IPRF 

2 38  1 

VIPRF 

2382 

= l 'N“0r<'  = ‘^»^PIPS'^  Ti'-»nnp,x=i 

VIPRF 

2 3 83 

VIPRF 

2 384 

VIPRF 

2 385 

VIPRF 

2 386 

r 

• ♦ 

VIPRF 

2 387 

r 

R-A''  FTRST  ^AKC  TO  S^T 

VIPRF 

238ft 

r 

Qtr  crNTlMr  ‘^CO'"  VALUE  CAR'^S 

VIPRF 

2 309 

r 

t » 

VIPRF 

2390 

r 

VIPRF 

2391 

VIPRF 

23P2 

3 j Rt.  , 2w)  ILIK'^:2 

VIPRF 

2393 
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VIPRF 

2394 

'>Zr 

VIPRF 

2395 

r CM-rx  UMrjMcp  -OF- JO-**'  CARP  WAS  READ 

VIPRF 

2-»96 

VIPRF 

E397 

iF(tc«"(5).-:''.w)  no  jn  43J 

VIPRF 

23Pfl 

VIPRF 

2399 

? 7'^ 

]ccpfp  = i*  'fnpii^x  £*r 

VIPRF 

2A00 

IF  (I^'rrox.iT,  2)  nr  -^n 

VIPRF 

2A01 

VIPRF 

2A(J2 

PRINT  ,Nr'\pps, 

VIPRF 

240  3 

■»K  FO^^AT  (-xTy,  *CAR0  *,11.*  OF  THI  SET  OF  ••*,A6,*  SFNniNO  POCE  VALUET 

VIPRF 

2404 

?tC 

IPonS  • taAiM 

VIPRF 

2A05 

VIPRF 

2406 

IF  flTVcpx.EC. 1)  OC  ’2? 

VIPRF 

2407 

VIPRF 

240  E 

PRINT  i,P  U7 

VIORF 

2409 

call  CCNf  Fl  5STOP 

VIPRF 

2410 

VIPRF 

2411 

I=1"HCR  T»-p  rjh  ?J  = ewiSH  card  ♦print  3TC,I,J 

VIPRF 

2412 

■*3:  cORMAT(?cy,oftif> 

VIPRF 

2413 

PRINT  ^Ui  -PRUT  i*’ 

VIPRF 

2414 

9rG 

■»LJ  FORM^Tf  lH'',2fly,*PFOGRA»-  fYrnuTION  PRODEpne  ASSUMING  THAT  THE  "FIM 

VIPRF 

2415 

1PM*‘  CARP  FCLLCWEP  T H^  » /->  OX  , PA  1 r ) 

VIPRF 

2416 

re  TO  71 

VIPPF 

2417 

VIPRF 

2418 

VIPRF 

2419 

9 c c 

•^5’  IF  (F2^  .NE.  ] ,)  ro  TO  ♦P'' 

VIPRF 

2420 

VIPRF 

242  1 

: = iCHFINirH  CAF  fJrlHO  ♦'^RINT  330, 1 , J 

VIPRF 

2422 

PRI^'T  ■*Fr 

VIPRF 

2423 

3F:  F-^^mat  f pay,  •ppoGP  A^'  Fyp^ijjlON  PROCFFCS  ASSL^^ING  THAT  THF  "FIMSH" 

VIPRF 

2424 

per 

IfARO  SMOILO  HAVE  rOLLOR'=’n*) 

VIPRF 

2425 

rpTMT  ■'7f* 

VIPPF 

2426 

■*7:  FCOMAT  (pey  , ^ EC"  I Cl  MG  SET  0^  pfkCING  voOE  VALUE  CAPOS.*) 

VIPPF 

2427 

PRINT  0? 

VIPRF 

2428 

PF'fHF  N 

VIPRF 

2429 

VIPRF 

2430 

IFCITYcrK.eo.l)  nr  TO  ■’01 

VIPRF 

2431 

VIPRF 

2432 

PRINT  Af  ♦PRI^T  47 

VIPRF 

2433 

FALL  rCN'-PL  ♦STO'’ 

VIPRF 

2434 

27n 

VIPRF 

24T5 

to:  I = lCHrR  T*-*  FIK  rJ  = pwTSH  CARO  sprint  310  , NCARCS,  NNOOr  ,I  , j 

VIPRF 

2436 

PRINT  ‘PRUT  37C 

VIPRF 

2^*37 

ro  TO  cf 

VIPRF 

2438 

VIPRF 

2439 

27^ 

VIPRF 

2440 

CMcpx  wMfTuiy  -ctmish**  OARO  WAS  R^AD 

VIPRF 

2441 

VIPRF 

2442 

43'  IF  (TLI^P  e (1) .NF.IFNISH)  GO  TO  450 

VIPRF 

2443 

VIPRF 

2444 

2 pr 

TFfi'^rrrw'.e r,o  to 

VIPRF 

2445 

VIPRF 

2446 

IF  (T-^YFCK.LO,  1)  GC  TO  7(3 

VIPPF 

2447 

VIPRF 

2448 

KRP0F=1 

VIPRF 

2449 

ppr, 

POINT  12r  TCRINT  Tjr  ,N''AROS,NMOnE 

VIPRF 

2450 
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^9TMT  <47  »C9IM  4?r 

W IDRF 

2451 

•4  ■*  ■ 

F0'?^'AT  D^•ortF'\^  °Rnrr-ns  to  th*^  mfxt 

SIT, IP  AN'VjOF 

PATA  CA 

VIPPF 

2452 

VTPPF 

2453 

VIPPF 

2454 

pen 

VTPRF 

2455 

VIPPF 

2456 

U«4 

IFd'VrPK.cr^^^  rp  jp  -3 

VIORF 

2457 

VIPPF 

2458 

1 F (F?^  . r'.  > PFT  UP^' 

VIPPF 

2455 

*5  cr 

VIPPF 

246C 

TP'5PCF=  1 

VIPPF 

2461 

f'PIVT  l?r  -^roi^'T  310  ,^'MOn^ 

VJPRF 

2462 

PPT'JT  ?PPTVT  4‘^‘= 

VIPRF 

2463 

VIPRF 

2 464 

7 f 

VIPPF 

2465 

VIPRF 

2466 

CH:C‘<'  UHrTH'’P  CARD  WAS  PFAD 

VIPRF 

2467 

VIPRF 

2468 

^z: 

I=ILI^»■  ? n.  ) ^ir(r  .Ml.I^^ANOl.AND.I.NF  •IPU‘^LT,AMn,I.^JE.ITA•<OF 

.AND. 

V JPPF 

2469 

T : 

lT.NF,IL?-"r.AMC.r.^’'^.ITUR'>)  GO  TO  54C 

VIPRF 

2470 

VTPRF 

2471 

P R T T 1 ® C 

VIPRF 

2 47? 

VIPRF 

2473 

IF(TMrr<'x,='',2)  r,r  jo  a-»c 

VIPPF 

2474 

1 < ~ 

VIPPF 

2475 

TP  (IT  VFP  1^.  EO,  1)  GC  TO  46^ 

VIPRF 

2476 

VIPRF 

2477 

TS'‘PPP  = 2 '•PRINT  3 in  ,^''' ^ROS,  M^ODF 

VTPRF 

2470 

PRINT  l«i,ILINf'’  TP^RIN'^  47  SPRINT  lOC 

VIPRF 

2479 

T 

c?^TE'R^ 

VIPPF 

2480 

VIPPF 

24«1 

<4  6 : 

Zl  -PCF  = ‘< 

VIPPF 

24  82 

I=KHCp  TF*  pin  ?j=PHT’^H  PAPn  5PRI^’T  31 C , NC  A P CS  , NMOO«“  , I , J 

VIPRF 

248  3 

l«6,ILIN'f'7  iPRINT  340  JpRINT  3 SPRINT 

?30 

VIPPF 

2484 

PQ  3r 

VIPRF 

2485 

VIPRF 

2486 

VIPRF 

2487 

'i7' 

Tf.PPCFr''  ^TF  f ITY'^rK,*  0, 1)  GO  TO  FOO 

VIPPF 

2488 

VIPRF 

2489 

T ?r 

IF rcp^ . NT ,-, ) 00  TO  400 

VIPRF 

24Q0 

VIPRF 

2491 

I- 1CHFT»’I<^»-  cap  ;j=iwn  7ot^iMT  733, 1 , J 

VIPRF 

2492 

'^RTNT  36'  -oPId  *<7n 

VIPRF 

2493 

npTNT  SPRINT  ?f& 

VIPRF 

2494 

7 ^ 

F'-Tl'P^ 

VIPPF 

2495 

VIPRF 

2496 

UO, 

IF.  PRCR=? 

VIPRF 

2407 

PRINT  3 1 C , SCARPS  d'^OC" 

VTPRF 

2498 

PRINT  19f,rLINF2  'jt’PINT  47  XPRINT  40c; 

VIPRF 

2499 

3'''=- 

ko- 

FOP^AT  (?cv  ,*PPrGRf  “ rvrO'JTTON  PROCEFCS  ASSLHING  THAT  THIS  APPARENT 

VIPRF 

25C0 

1 »n- 50*^1  PTICN"  CAFn*/?PX  ,*3PL0NGS  TO  THE  N'^XT 

S'"!, IF  ANY, OF 

INPUT 

VIPRF 

250  1 

? r AT  A C APOC  ,» ) 

VIPRF 

25  32 

RF  Tt'F^ 

VIPRF 

2503 

VIPRF 

2504 

7i  - 

""C  j 

I=ir‘JrR  FIK  ’‘Jr«^MISH  OAPO  -fPRINT  3 1 0 , N C A R 0 S , NHCO  E , I , J 

VIPRF 

25U5 

PRINT  lF^,TLTNr?  SPRINT  3GQ  SPRINT  37Q  SPRINT 

2C3 

VIPRF 

25C6 

GC  TO  c: 

VIPRF 

2507 
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VIPRF 

2500 

VIPRF 

2509 

345 

54  . 

00  543  I-l,** 

VIPPF 

2510 

IPdLINE  ?(I>,r:r.IPLAK'<>  50  TO  570 

VIPRF 

2511 

54  7 

OCK'TIM''^’ 

VIPRF 

2512 

VIPPF 

2513 

VIPRF 

2514 

7r- 

r 

f CAPC  WPS  P5A0 

VIPRF 

2515 

VIPRF 

2516 

ir  (iiypri^.cr,  1)  jp  C57 

VIPPF 

2517 

VIPRF 

2'18 

IF  dwrcr*-'.!'',  2)  5c  TO  547 

V IPRF 

2519 

VIPRF 

2520 

PPT^'T  545 

VIPRF 

2521 

5 4 , 

POP^PT  dH-,?»^y  ,*A  ^LANK  CPPP  '^AS  reap  INSTEAC  of  the  IXPECTEC^) 

VIPRF 

2522 

PRINT  31  “ ,NCAPrS, r MCO'  SPPIMT  45  SPRINT  47 

VIORT 

2523 

call  ^CN^^pl  '’$’’0'^ 

VIPRF 

2524 

3f  « 

VIPRF 

2525 

5U? 

IF(F2K.N{:,C,)  go  TO  55'' 

VIPRF 

25’6 

VIPRF 

2527 

PRINT  C2 

VIOPF 

2528 

RF.TURN 

VIPRF 

2529 

■?f  c 

VIPRF 

2530 

OPTMT  C4'' 

VIPRF 

25  31 

IriCHCP  TP-  FI^  «J=‘^PT5M  CARO  SPRINT  310  , NC  PROS  , NHOOE  , I > J 

VIPPF 

2532 

POINT  4P  ’•’PINT  47 

VIPRF 

2533 

CALL  rCN^^PL  ♦STOP 

VIPRF 

2534 

■»7r 

VIPRF 

25^5 

VIPRF 

2536 

’^5' 

IPd^'^^CK.co,  r,c  T'^  557 

VIPRF 

2537 

VIPRF 

253« 

N^cnii  = Ncycri  sov^^oci-oxyi 

VIPRF 

2539 

D'^  55®^  I^l  ,N»^rri-i 

VIPRF 

254C 

5 5" 

rp“ori  (I ) ^rnuKi) 

VIPRF 

2541 

VIPRF 

254? 

j=rpFTDST  tcPIKT  P5 , J , NH 007 1 , OXHOOl , ( rSHOD 1 (I ) , I = 1 ♦ NMOPP 1 ) 

VIPPF 

2543 

GO  TO  ^l"* 

VIPRF 

2544 

38r 

VIPRF 

2545 

557 

IF  (F2I  GO  TO  567 

VIPRF 

2546 

VIPPF 

2547 

PRTTT  C2 

VIPRF 

2548 

c-  TU-?*' 

VIPRF 

2549 

7 pc 

V IPRF 

2550 

f Mor •:  ?- 02  -OX'^Pr2  = CX‘^2 

VIPRF 

2551 

ro  56*'  l = i,N>^crE7 

VIPRF 

2552 

" i ” 

pp^nOF (1 1 =nQH2 (I> 

VIPRF 

2553 

VIPPF 

2554 

•»  cr 

J= 6 MS -CO NO  T?PINT  65 , l,NM0nr2, nXHQP?, (PPM0r?( I) , Iri,NMCnL?) 

VIPRF 

2555 

ro  TO  8’* 

VIPRF 

2556 

VIPPF 

2557 

VIPRF 

2558 

r* 

r.A^n  IS  AccL'H?n  T^  OC  1 of  the  sft  of  ist  p-nping  node  value 

VIPRF 

2559 

7 cc 

VIPRF 

2560 

5 7 

ir  (jMrrrv-,  CO,  2)  or  TP 

VIPRF 

2561 

VIPRF 

2562 

•"--OCF  («.  , 5*  tILir'E  MOn-1,  OXMOOl  , ( QPM 00 1 ( 1)  , I = 1 , 1 2 ) 

VIPPF 

2563 

NVALS  = N“Crni  cco  TO  5'i? 

VIPRF 

2564 
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4 rc 

VIPRF 

2565 

^7^->  rt'noF  (P  ^ , ILI^'^;?)  ^‘10DF?,^X'10D^,  (D'’»^OD2(T)  ,1  = 1,12) 

VIPPF 

2566 

38"  = ( T ?,  1 3FP,^) 

VIPRF 

2567 

► V '•LS  = N^rC 

VIPPF 

2568 

VIPRF 

2569 

4r5 

3Q"  rPTNT  f ,^►'00'■,ILI^’F2 

VIPRF 

2570 

SC'  FOP^AT  r inn  ,78Y  , ,*  PiKOING  Hont  VALU»^  C APHS* /29V  , P A 1 C ) 

VIPRF 

2571 

IF(^VAlS.L  •.12)  FP  TP  Pj** 

VIPRF 

2572 

VIPRF 

2573 

J=13  '^>'=2^  :L  = ^ « "^F  (K'.L^.tJWALS)  GO  TP  620 

VIPRF 

2574 

u < « 

H = 1 

VIPRF 

2575 

VIPRF 

2576 

V IPPF 

2577 

r 

VIPRF 

2576 

r 

« * 

VIPRF 

2579 

4 ie 

'' 

R''A'‘  2^C  r^  C clpoEF  PI^''"’ 

VIPRF 

2580 

'' 

PFKPINF-  MCP*:  VAL')'"  raPO’^ 

VIPRF 

2581 

r 

• » 

VIPPF 

2582 

r 

VIPRF 

2583 

VIPRF 

2584 

6 2 r papnsrNra-^ns 

VIPPF 

25  85 

Fr''P(^,2^>  ILTM.’ 

VIPRF 

2 5 66 

VinpF 

25  87 

VIPPF 

2588 

r 

CH^.PV  WMUTM^p  -rKir-Qc- jon-  pARD  WAS  RCAO 

V TOPF 

2589 

4?'" 

VIPRF 

25Q0 

IF  (FPF  (P  ) .t^O.  :)  no  TP  6F0 

VIPPF 

25Q1 

VIPRF 

2592 

''RT^JT  ur  fl'^oiKT  7 1 2 , ARP*"  , MmopE 

VIPRF 

2593 

rpTNT  o-cRiHT  6?c  ,^■VaLG,M*'^O^F 

VIPRF 

25^4 

4 30 

6'»'  rC‘-'’MAT  ( ocy  ,*ftLL  nr  T^r  ♦,!■?,*  ♦,a6,*  BFNOING  ^OOF  VALUES  COULD  NOT 

VIPRF 

2595 

1 n;-  r^PM  INPUT  PATA  CAPnG.*) 

VIPRF 

25°6 

tall  pCN~PL  iSTOP 

VIPRF 

2597 

V yPPF 

2598 

VIPRF 

2599 

4 ~5 

r 

CUTTY  whlTMTR  "Fir’TSH**  GARD  WAS  RFAO 

VIPRF 

260  0 

VIPRF 

26C1 

.'.c  ir  fiLIK-"  Ml)  .NP.IFNI’^H)  P-0  TO  670 

VIPRF 

26  02 

VIPRF 

2603 

I'--RCF  = 1 

VIORF 

2604 

4(  " 

opp.T  12'  -PPIM  71",NPARns,MHOn~ 

WIPRF 

2605 

PPTNT  1'*  P-Tc  ,NVALS,NHOnE 

VIPPF 

2606 

rr  7(iR» 

VIORF 

260'" 

VIPPF 

260  8 

VIPRF 

2609 

4 4=, 

r 

r*u.-r(<  wh^T^-p  ••DEGrPT'^TT  om**  GAPD  WA^  REAO 

VIPRF 

2610 

VIPRF 

2611 

G7  I=!Lir  *^2  ^^)  VIFd.^i-.irANOL.ANP.I.MF.inUrFT.ANO.I.Ke.ITAKOF.ANn. 

VIPPF 

2612 

lI.Nf  . T'-A^  ^.AMr.rd’F.T'^U^'’)  GO  TO  69C 

VIPRF 

2613 

vyppF 

2614 

t r - 

I ' - P C F = ? 

VIPRF 

2615 

-PPIM  '1 '' ,NPAPnS  ,►1^000 

VTPPF 

2616 

'■RTM  l^f,ILI^F?  -PRi*'!  IP? 

VIPPF 

2617 

cr  TIIO^ 

VIPRF 

2618 

VIPRF 

2619 

i^rr 

• jQ  ro  1=^** 

VIPRF 

26  2 0 

IP  dLl  AF (1  ) , r '^L  ANV)  go  to  740 

VIPRF 

2621 

180 


AFFDL-TR-77-101 


p'“/'nfrs  7U/7U  P'^Tri 


FTN  GP/16/77  13.11.28 


i*f  0 


L f q 


*♦7'' 


L 7c: 


»4  P? 


It  cr 


LCt^ 


5rf 


«■  1: 


rCKTI^Lr 

VIPRF 

2622 

VIPRF 

2623 

VIPRF 

2624 

r 

r r/spc  was  p*’AP 

VIFRF 

2625 

VIPRF 

2626 

rPTMT  71" 

VIPPF 

2627 

■'I  FOP^ftT  (1  P- , 2 ,*  A CARH  WAS 

ENOCUNTEPEH  tnstfad  of 

THE  EXPECT 

VIPRF 

2628 

IE  D*  > 

VIPRF 

2629 

PRT^'T  3 I**  ,^CAprS, 

VIPRF 

2630 

print  Af  SPRINT  63C jNVALSjNmoTE 

VIPRF 

2631 

call  rrcpfri  -^stop 

VIPRF 

2632 

VIPRF 

2633 

VIPRF 

26^4 

r 

rA-;r  TP  APPUPuC  TP  t?r  A hoOE  '/alue  card 

VIPRF 

2635 

VIPRF 

26^6 

-A‘  IP  (T*'C^C TC.  1 ) nt-ron:  ,7P>C  , ILINE2^ 

(POMOOl  (I)  ,T  = J,  »<) 

VIPRF 

2637 

IF  f T»'Cr':‘<.=C.  2)  P' CQF"  ( s:’  , ILTNE2) 

(PRMcn?  (I) , i = j,K) 

VIPRF 

2638 

7f'  FORMAT  (I^FC,?) 

VIPRF 

2639 

VIPRF 

2640 

PPT^'T  7F^,ILI^F2 

VIPRF 

2641 

FO^i^AT  (2cy,  »Alt) 

VIPRF 

2642 

VIPPF 

2643 

IF  fL  .f  r.  1)  GO  TO  PC" 

VIPRF 

2644 

VIPRF 

2645 

J = Ji-1.'’  :KrKll3  »IF(vr,LT.NVALS)  GO  TP 

620 

VIPRF 

2646 

V'  r ► ' V A L 3 n.  - 1 

VIPRF 

2647 

ro  TO  F2C 

VIPRF 

2648 

VIPPF 

2649 

VIPRF 

265  0 

2'  IF(THFrFK,tP.2>  GO  TO  ‘*2'' 

VIPRF 

2651 

81  I^'cncK  = 2 pNFrRrs=i  ?NHon'=6HG'pcoNn 

VIPRF 

2652 

on  TO  3or 

VIPRF 

2653 

VIPRF 

2654 

VIPRF 

2655 

r 

VIPRF 

2656 

r 

« » 

VIPRF 

2657 

r 

F^AC  LAGT  OARP 

VIPRF 

2658 

r 

U F*’T  of  P3T/»  OAPOS 

VIPRF 

2659 

r 

V » 

VIPRF 

2660 

r 

VIPPF 

2661 

VIPRF 

2662 

S7T  FrAOECjF:)  TLIAT^ 

VIPRF 

2663 

VIPRF 

2664 

VIPRF 

2665 

r 

OHECy  ksi-H_TH[F  "i  I^n-CF- JO^"  CARP 

WAG  REAP 

VIPRF 

2666 

VIPRF 

2667 

Iprcpr(-),!:^,C3  GO  T*^  ®G] 

VIPPF 

266  8 

VIPRF 

2669 

ji"3dcr  = A 

VIPRF 

2670 

CRINT  NL  7T  = ichFI^IGH  0^?  TvJ=lH0 

1 $opiNT  T3G ,I  , J TPPINT 

P40 

VIPRF 

2671 

84-  FO^'^AT  (29v,»PROO,fam  Ey'-''iJTIOfl  STOPS  AFTER  THE  OUPRFNT  SfT  OF  INPUT 

VIPRF 

2672 

1 nSTA  "APOP,*) 

VIPRF 

2673 

F'T'IR^ 

VIPRF 

2674 

VIPRF 

2675 

VIPRF 

2676 

r. 

rH':r.<  UHFTHEP  ”FT^TSH••  CARO  MAS 

REA  0 

VIPRF 

2677 

VIPRF 

2678 
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a c 

' IF  (tl  Ur  2 (t ) , M ,TF^'T<-H)  '“,0  Jn  R7? 

VTPPF 

2679 

r •«  c 

VTPRF 

2E«0 

O =>  T T 1 R , I L I 

VIPPF 

2e«i 

V/IPPF 

26?? 

V IPRF 

2683 

V IPRF 

2684 

c ? p 

n 

rjULFY  wmtt-  ,po  ..^-^.p^T-oTTON”  card  was  RFAT 

VIPRF 

26  83 

VIPRF 

26  86 

n -7 

I=TLI''"2f4)  '^XFd.Mr.rc^vinL.flMn.i.Nr.inurrT.ftf^o.i.Ntr.jj^KCP.^Nn, 

VIPPF 

26?7 

1I.Nl.  ^LAf:r,flMr,i.»T.T'^LRn)  r,o  TO  3P'-. 

VIPRF 

26  8 8 

VIPRF 

26  89 

r rc 

JT  -oppr  f 

VIPRF 

26C|) 

F ’TNT  IP.  • T^  I'^H'^TMI^M  r!\Q  :J^1H0  ’PRINT  330»T,J 

VIPRF 

2691 

"RItJT  10'",TITM2  ’PRINT  4?5 

VIPRF 

269? 

cr  ■^|>p^ 

VIPPF 

2693 

VIPRF 

2694 

c tr 

VIPRF 

2695 

r 

/>  IJIT‘-'  UNKNOI-'N  I^AS  R'"AP 

VIPRF 

2699 

VJPPF 

2697 

X n • 

' n 

VIPRF 

2698 

PRINT  ■ . ILIN^2 

VIPRF 

2699 

c -r 

n r ■ 

ccMfiT  ^ ^,T»TT"a^  PF  TH£  FXPFPTTC  "FIMTSH”  CARP, TNI  CARP  SHC 

VIPRF 

27'^n 

IWN  ’':LPN  M"  XrOllMTcP'"n  A^TFR  THF  •/?9X,*LAST  CAPD  IN  TM’  SFT  OF 

VIPPF 

27C1 

p-\rirsr  N^rr£  Vd'lT”  r ^pns,*/29y,  *PR0rP^M  EvPrUTION  STOPS  fl 

VIPPF 

2702 

^pT-r  ri.T''!T  ‘sp  -^i  OT''  art  ponoiJOEQ  FOR  ’Hr.  CNPRENT  SFT  OF  INPUT  OA 

VIPRF 

270  3 

VI^RF 

2704 

c 1 n 

TU^^ 

VIPRF 

2 705 

r M n 

VIPRF 

27  06 

rvwnoLT*'  ';:^E^ro-^Jr'-  (Pri) 

FNTPY  rri^’T^ 

•»  p r r p n f 


VA'^TAtL 

c c r»' 

T y «- 

LOFAT  TOf' 

L 

n(  r M ^ y 

or 

K-ARPS 

12 

npMCCl 

RF  AL 

ARRAY 

KAROS 

Id 

p D»«  n o 

AL 

A-RAv  i<A?riC 

C 

nPM  1 

Rfal 

ARRAY 

F.P. 

0 

n r M *> 

A ^ rj  A V , F , 

11 

FX^'OCl 

RF  AL 

KARPS 

1 ‘‘7 

r 2 

oi  AL 

A p r s 

0 

pyM  1 

REAL 

F.P. 

c 

D>‘^’ 

c^AL 

F . n . 

7 

FPvnVF 

RFAL 

KARPS 

c 

r N 

R*-  4L 

1/  A?  F*" 

2 

F?r' 

rfal 

KARCS 

7r  (,  r 

T 

T^'TSFrp 

12C0 

I PLANK 

TNTFSFR 

7 ir 

T-'ir  T 

r rc 

lA  A”  FC 

1 

ICR  aft 

INTFGER 

•UNUSEC 

F.P. 

■»r  f r 

irAT-' 

T^-’F  FfP 

A P P A V 

0 

IfFROR 

INTEGER 

F.F. 

3<«1 

TF»'ISiJ 

d'TPFrP 

KARFS 

777 

u anc 

I nT6F,fp 

ARPS 

3 24 

II  T^■ 

T » • T - - p o 

X-ARFF 

’OF? 

i^crcK 

INTFGER 

”4 

IFi  'I’L 

Tf'T  '"F  CP 

K AR  Fc; 

336 

I TAKPF 

IMTEGFP 

K APRS 

7 f,  0 

T T'  )C  n 

T»'Tr  - fP 

X'ARFS 

3 

ITY°CK 

INTEGfr 

F.P. 

ir  * 

.1 

C r p 

’3  63 

U' 

T'''TrGCR 

64 

1. 

t’’t:ffp 

3C50 

NT ARFS 

INTEGER 

’C  n 

n^'OPl 

TN’! ^LP 

10 

NMCDEl 

INTFGpp 

KAROS 

Id 

N >*00'  P 

T^'Tt■dCp 

K A^  Of 

J 

Nr-ori 

INTEGER 

F.F. 

r 

^.  r *-•  c F 2 

TNTFFrp 

f.F  . 

nVALS 

integer 
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^tPPOU'^IKP  7i*/7U  GPTri 


PTM  4.5^41(»  0^/16/77  13,11.?0 


vaPTA^Lrc  typ^ 


e; 

YHT 

real 

.3 

y l?fmx 

Rf-AL 

3057 

YE»IFKy 

PEAL 

3053 

VFN 

RF  AL 

3C54 

YLFHAX 

RP  AL 

3CF0 

Vyr'T 

R'-AL 

0 

7F||F''y 

real 

C 

^FN 

real 

C 

7i.5*'Ay 

r«*al 

n 

7VOT 

of^l 

FILE  T'AMrS 

“OC’ 

PlTPiJT 

CMT 

5XTFRKAL  5 

OCNEOL 

TYOf 

statement  lspel^ 

1206 

?r 

FMT 

1240 

45 

f-t 

1276 

6 

FMT 

50 

r 

7C 

or 

0 

l''5 

14**? 

1 

FMT 

1464 

ip: 

FMT 

1546 

’CO 

cwT 

i6cr 

pr? 

FMJ 

1647 

215 

FMT 

171? 

’25 

CMT 

r 

?4' 

n 

-5  ?•» 

722 

'’64 

37? 

2cn 

?C(  7 

?C6 

PMT 

2046 

■»n 

FMT 

?1C2 

?iC 

FMT 

214? 

7?0 

CM”^ 

44G 

4 7? 

47F 

4 5'* 

*^7C 

4C'' 

*^17 

54'’ 

642 

54'' 

n 

5 rr 

3 

cj-r 

2524 

5pr 

C>*T 

?66 

62'* 

1011 

C7n 

7f>Ll 

FM- 

2711 

’p: 

FMT 

111? 

1143 

P?'* 

LCPPS 

lapel 

iNO’y 

F7 

« r 

T 

1C3 

1 C5 

I 

27C 

24'’ 

* I 

^CLOCATION 


KARPS 

1 

xlfmax 

R'-AL 

KARPS 

6 

XTL 

REAL 

3047 

YFCHOV 

REAL 

3055 

YF2N 

RPAL 

3056 

YL2FMX 

REAL 

3061 

YXTL 

REAL 

F.P. 

0 

zfcmov 

REAL 

F.P. 

3 

ZF2N 

RFAL 

0 

ZL2FMX 

RFAL 

0 

ZXTL 

REAL 

TA''F5 

flRr<; 

^ EOF  Rr/\L 


1?17  40  PMT 

leFO  47  FMT 

31  65 

0 

1375  R?  FMT 

115  110 

173  140 

1510  1>^5  FMT 

17?  203 

164  ?13 

16C5  217  FMT 

1720  227  PMT 

1742  260  FMT 

314 

325  2ft6 

3.76 

347  ?qo 

■^72  320 

4C3  350 

417  3flG 

2215  4-»5  FMT 

r?7  460 

2351  4P5  FMT 

0 543 

646  550 

7p!;  CC7 

73‘»  570 

744  5q0 

2567  630  FMT 

iQ-'e  6qo 

1055  ■'40 

1111  POO 

27?3  040  FMT 

1172  PPO 


FPCf-3C  LcMCTH 

5 7 5 « ->9 

7 2 7 7 2 

176  17*  SI 


“ROPERTIFS 

IMSTACK 

INSTACK 

INSTACK  EKITS 


KARPS 

KARPS 


F.P. 

E. P. 

F. P. 
F.P. 

1227 

43 

FMT 

26 

50 

1335 

67 

FMT 

1357 

85 

FMT 

74 

lOG 

1424 

120 

FMT 

136 

16C 

1516 

IRC 

FMT 

1571 

205 

FMT 

215 

217 

242 

22C 

251 

230 

277 

270 

317 

28? 

330 

28P 

341 

254 

346 

30C 

2072 

330 

FMT 

2125 

760 

FMT 

427 

350 

460 

440 

546 

470 

6C2 

500 

2420 

545 

FMT 

662 

5 5 7 

711 

567 

740 

575 

2534 

600 

FMT 

775 

650 

C 

700 

27C3 

760 

FMT 

1113 

SIC 

1156 

860 

2773 

ROC 

FMT 
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^l^ROUTINE  R-Af^rPS  7 

4/74 

nPT  = i 

FTN  4. 5^414 

Oe/16/77 

LCOPS 

7C5 

e ?o 

f 7’ 
7?n 
1C  37 

LA9EL  PRf- 

277  I ic2 

cty  • I 3i,c 

T 375 

rfc  j 3P7 

•»CG  * I 

- -^r 

1^3 

■*^-7 

’76 

TP  9 

457 

L‘=’^»GTH 

39 

5P 

?n 

?? 

5P 

f^ROPERTIES 

IMST4C< 

INSTACK 

INSTACK 

INSTACK 

INSTACK 

LXITS 

FXITS 

CCHM0^ 

f’Lnry's  L'"^GT^ 
vrppp?  22^' 

fTMI'Tyr? 

PPO^oA^' 

lahflec  rrwvoN  l-ngtm 

3075° 

’^2P 

1597 

22f 

•11.20 
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Sl’^POMTT^F 

1 

!•: 

?r 

•»r 

tc 

ur 

'T 

cc. 


m/7f*  rPTri 


FTN  Oe/16/77  13.11,2e 


SLCROL'TIKC  (FRE'^»T3,N,P£A<,BL0,ohI,XL0,XHTfFZR0Ln,FZR0HI, 

lALCfftwi  , Fvp;, F^AV ,nPMIN,ISFTZ,IFIRFT,LPr AX,IFUN, ISCRPT , IL CHI ) 
PPE0(  1)  ,DP  (1 ) 

ro^MCN/PFLCrT/H,yKAXNO,X»RS»WF,WS,IFLITE,CAT(;RY,ILINEl(7), 

1ITITL1  (7)  ,TPLA^'E<T)  ,LX»‘’AME(4>  ,LYNAMF(4)  , XfYCL E , YSTEP  , YA XI S , 
ZXAVlSt^'IT';  ,wiTbl,TinL'^^',  XI,  X2,  X3,  XLjXXjI'^HAS^  ,INOPLT  ,IPLANX 

fata  Iwi/?HMI/,IX/pm  (C)*^/ 


IF  riKrcLT.EO,  IDLAVX)  r,r  jO  IE 
IF  (ILTMT  .FQ.IHT)  ro  TO 

PRINT  1 ,TFLftNc  ,IPLITP,Tr'JM,  ISCPOT,rLO,BHI,XLn,XHI,FZPOLO,  FZRCHI, 
lfLO,API,Pc*K 

1 F0P»<AT  ( 1 HI  ,>*«•»»»**♦»,  TAIO  , IH,  ,A10  , PH*^^'^*^** ///»  PARA^FTPRS  OF  * 
lA5/l7X,A?//flX,»o  =*,ril.3/EY,»B*=»,ril,3/ 

2PX,»y  ,ril.3/fiX,*X*  = *,011,3/8X,*F  =*  ,r,ii.5/<?X,*C*/ 

:ipy,*F'  = *,Fi:l,5/OX,*C*/4X,*  AL°HA  =*,G11.3/4X,»ALPHA'  = »,ril.3/ 
4?X,»Mpy,  VAL..  = »,011,4> 

GO  TO  ir 

- PRINT  1C ,TCLANE,IFLITr, IPUN, ISCRPT, BHI,XHI,FZR0HI,AHI, PEAK 
1'  FOP'^AT  ( 1 HI , A 10  , IH  , , AlO  , ”^ ///♦  PARAMETERS  OF  • 

1AC/17V, A2//flX,*P»=* ,011. 7/8X,»X'r»,F7.3/ 

2PX,*F»r*  ,G1  1,5 /OY  ,»0* /AX, ’ALPHA  *=»,G  11.4/ ?X,  •»-AX.VAL.=’,G11.4) 

1=  CALL  vFCRFUN(FRc-o,nQ,N,'5‘^AK,XLO,XHI  , BLC  , BHI , F ZROLO  ,FZPOHI  ,ALC,AHI, 
IILOHI) 


IF  (I5ET7.FT,0)  GO  TO  4 

00  2j  1=1, N 

TF  (DPfl)  .TE.O.)  GO  TO  40 
2'  rP(I)r^, 


4:  IF  (IKCFLT.PT.  IPLA^’K)  pryURN 

XAVlc=ALrGlP(FMAX/FHIN)*XCYCLF 

TALL  TITLF(1H  , 1 , LX N A m r , + ^ q q , L YN AME , ♦ 1 C 0 , X A X I S , Y AX IS ) 

GALL  HficpkhITL) 

CALL  HTAOINIILIH'^I,  flOO,?,!) 

CALL  PFAniKtITITLl,’lCC,2,'») 

CALL  FFSFT(-PASALF”) 

CALL  HEAOTN (IPLAMr,’3C ,2,3) 

CALL  FAS  ALP  (••L/OSTO”) 

FALL  VTIOW'CCR) 

XXrPfcAK  JfALL  r^'"LHAXrxX,YSTro,DBHAX)  TO  IN=nB*^AX-40  . C 
CALL  VLOC  ( '=MIN,XCYCL‘^ , CSMIN  , v<5TED) 

FALL  T IOKHk  (T irLFN,FMAY, vfTFP, YAXIS,r°HIN) 

IFTPST=0 


VIPRF 

27C7 

VIPRF 

2708 

VIPRF 

2709 

VIPRF 

2710 

VIPRF 

2711 

VIPRF 

2712 

VIPRF 

2713 

VIPRF 

2714 

VIPRF 

2715 

VIPRF 

2716 

VIPRF 

2717 

VIPRF 

2718 

VIPRF 

2719 

VIPRF 

2720 

VIPRF 

2721 

VIPRF 

2722 

VIPRF 

2723 

VIPRF 

2724 

VIPPF 

2725 

VIPRF 

2726 

VIPRF 

2727 

VIPRF 

2728 

VIPRF 

2729 

VIPPF 

2730 

VIPRF 

2731 

VIPRF 

2732 

VIPRF 

2733 

VIPRF 

2734 

VIPRF 

2735 

VIPRF 

2736 

VIPRF 

2737 

VIPRF 

2738 

VIPRF 

2739 

VIPRF 

2740 

VIPRF 

2741 

VIPRF 

2742 

VIPRF 

2743 

VIPRF 

2744 

VIPRF 

2745 

VIPRF 

2746 

VIPRF 

2747 

VIPRF 

2748 

VIPRF 

2749 

VIPRF 

2750 

VIPRF 

2751 

VIPRF 

2752 

VIPRF 

2753 

VIPRF 

2754 

VIPRF 

2755 

VIPRF 

2756 

VIPRF 

2757 

VIPRF 

2758 

VIPPF 

2759 

VIPRF 

2760 

VIPRF 

2761 

VIPRF 

2762 

VIPRF 

2763 
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Sl''PrUTIN  = 


■’r 


7f 


pc 


cr 


cc 


0MF"U^'  74/?',  OPT-!  t^TN 

OP/16/77 

17,11 

on  f-'-.  r = 1 , 

VIPRF 

2764 

IFIPST^  I FT-^^T  + l 7 (T'^IRST)  .Gr.DEMN')  Or  TC 

VIOPF 

2765 

6"  ("ONTIKU 

VIPPF 

2766 

VIPRF 

2767 

0 * k"  - "I 

VTORF 

2766 

on  l.*'  TrICTPSTjM 

VIPRF 

276P 

IF  (OPf  T)  .LT.DFhik')  ro  TO  173 

VIPRF 

2770 

IC^  Krkfl 

VIOPF 

2771 

VIORF 

2772 

!*’■'  CALL  T'>°LF(FPEO(jpjrcj>  jripsxi  ,»^,IFUN,ISnPOT) 

VIORF 

2773 

CALL  <''JFVr  ( FFFO  (X  FIOST)  , nn  ( Toipst)  , K , : ) 

VIPRF 

2774 

VIPRF 

2775 

fall  hcx GHT  (HIT^l) 

VIPRF 

2776 

y 1- 1 . 1 w*  Fk'iN  ^y?=rf  flk'4.r,  c 

VIPRF 

2777 

TmLL  FL'^[«^<?(LOLAy,«-ini,Xl,X?) 

VIPRF 

2770 

fall  FLPl  AL  (or/jK,  +1  ,”AO'JT**,  “AlUT") 

VIPRF 

2779 

call  r(3)<?**,«-n%"ABi)T**,”APlJT**> 

VIPRF 

27A0 

CALL  lOFT  (C,  F*MITri> 

VIPRF 

2761 

tall  plM‘’'^''(**  j,X1,  X?-C.5) 

VIPPF 

2762 

VIPPF 

2763 

V IPRF 

2764 

nY'»AL=  1 . ^•'\LL  GHT  ( HITFl) 

VIPRF 

2785 

VIPRF 

2 766 

''1  = 7,i41«-''?F5-AT  '•♦oht*  (yHI»*AHI)  ,l.C-yHI*YMI) 

VIPRF 

2767 

vVAL  = ^tAkf5:.G*ALFG10('’.lAl?9?65/<?,c*yi)) 

VIPRF 

2766 

TALL  FL'Dvr(C7ppHT,vvftL,l,l) 

VIPRF 

2769 

VIPRF 

2700 

IF(ILrHI.FC.THI.nr.F7PCLn.LT.FMlN)  GO  TO  lAO 

VIPRF 

2791 

VIPRF 

^792 

YlTA-rAN7f7,o*OLO»(YLO**ALO),l.-XLO»yLO) 

VIPRF 

2793 

YV  Al  = P‘-- A^f  2C.  CMLOnC  f 7.  14159?65/  (2.  C*X1)  ) 

VIPRF 

2794 

TALL  rLPV'(F7PCLn,yvAL ,1,1) 

VIPRF 

2795 

VIPRF 

2706 

lA  TALL  LrCFFYA  (CL0,FHI,yL'>,yHI,F7P0L0  , FZPOHT  , AL  C,  AHI , Ff-TK,  FKAX  , 

VIPRF 

2797 

1YVAL,ovVAL, ILCWI) 

VIPRF 

2708 

VIPRF 

2799 

YX-ALCFlC(c*'AX)-l,lC/xr''O.LF  *XX=10.C**XX 

VIPRF 

2 600 

YlrFP^'AY-G,  2c*vsTCP 

VIPRF 

2 60  1 

GALL  PAPA*'>(XX,Xl,nYVAL,XMAKMO,H,Y,IX,PS,IFLlTI,HITE,HITFl) 

VIPRF 

2602 

VIPRF 

2 60  3 

tiipk 

VIPRF 

2604 

r \tp 

VIPRF 

2605 

cy^DOLTC  H/ir  (p^i) 

PN'Tpy  rrx^'T^ 

T '>Kr 


VAR  1 A PL 

r c 

TYP- 

ROLn^ATIO^' 

r 

At-T 

RfAL 

P . 

r 

"61 

PP  AL 

F.P. 

7 

PATGPY 

Ro  A L 

PPL  TTT 

675 

r FM  AX 

RP  AL 

0 

alc 

RPAL 

P.P 

0 

PLC 

RFAL 

F.P 

c 

ne 

rfal 

ARRAY 

F ,P 

0 

PPHIN 

RF  al 

F.P 
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SIPPOUTIKE  ONE^UK'  7i^/7k  CPT  = 1 


VAPIAPL'-S 

SN  TYPP 

677 

OYVAL 

REAL 

c 

PPTN 

real 

r 

F7ROMI 

REAL 

C 

M 

real 

4P 

HITtl 

real 

57 

TPLANY 

IHTEGER 

6 

IPLITE 

TNTfGFP 

545 

THI 

INTEGER 

0 

tlohi 

integer 

r c 

IPHAFE 

INTFGER 

0 

ISCRPT 

integer 

17 

TTITLl 

integer 

6 76 

K 

intf-er 

71 

LYNA-E 

integer 

C 

N 

integer 

3 

P? 

real 

4 

WF 

REAL 

2 

X 

real 

XCYCLE 

PPAL 

r 

XLO 

RF»L 

54 

XX 

REAL 

51 

X? 

real 

c ^ 

X4 

R»^AL 

42 

V 5T£0 

real 

FILE  KAHE«^ 

Hoor 

OITOUT 

''NT 

RELOCATION 


F.r, 

F.F. 

PolotT 

PPLCTT 

PoLPTT 

PPLOTT 

F.P. 

PPLOTT 

F.P. 

APRAY  PPLOTT 

ARPAY  PPLOTT 

F.P, 
PPLOTT 
PPLOTT 
PPLOTT 
PPLOTT 
F.P. 
PPLCTT 
PPLOTT 
PPLOTT 
PPLOTT 


0 

fhax 

0 

FREO 

0 

FZROLO 

45 

HITE 

674 

1 

0 

IFIRST 

0 

IFUN 

10 

iLINtl 

56 

irCPLT 

26 

IPLANE 

0 

ISETZ 

546 

IX 

0 

LPEAK 

35 

LVKAHE 

0 

PEAK 

47 

TICLEN 

5 

WS 

44 

XAXIS 

0 

XHI 

1 

XNAXNO 

50 

XI 

52 

X3 

43 

YAXIS 

700 

yval 

EYTFPM*LS 

ALOGIO 
P A^'ALP 
OFEL**  A Y 
HflGMT 

oflPAM?; 
PL*-rsc 
T fOLC 

TITL‘D 

YLOG 


T^'^E  ARCS 
PCAL  1 LIFRAP'^ 

1 
7 

1 

11 

i> 

r 

P 

U 


ATAN2 

niiRV^ 

Hf AOIN 

LOCFPXA 

RESET 

plreal 

TICKmk 

XFERFUN 

YTICKS 


STATEFEN'^  LAOfLS 


567 

1 

26 

1 " 

*^0 

IFl 

12C 

LCOPS 

LAorL  INn«^y 

^6 

?r  • I 

140 

6C  * I 

152 

ICC  • I 

CCMHON 

PLOCXS  Lfngtm 

PFLOTT  4<» 

STATTS**‘ICS 

PPOCRA^  LENCTP 

op  LAPEL*^F  rOPHOFt  L'NGTP 

24  S 


0 20 


147 

80 

3C2 

140 

FRC**- 

•TO 

LENGTH 

PROPERTIES 

76 

■»P 

6B 

INSTAOK 

EXITS 

5P 

6r 

7R 

INSTACK 

EXITS 

63 

6" 

7B 

INSTACK 

EXITS 

U0  3P 

515 

«0B 

48 

FTN  4,5f41ii  Oe/16/77  13 


RP  iL 

RF  II 

REAL 

REAL 

INTEGER 

INTEGER 

integer 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

integer 

INTEGER 

RPAL 

RPAL 

REAL 

real 

R^AL 

REAL 

real 

RPAL 

RPAL 

REAL 


F.P. 

F.P. 

F.P. 

PPLCTT 

F.P. 

F.P, 

PPLOTT 

PPLCTT 

PPLCTT 

F.P, 

F.P. 

PPLCTT 

F.P. 

PPLCTT 

PPLOTT 

PPLOTT 

F.P. 

PPLCTT 

PPLCTT 

PPLCTT 

PPLOTT 


ARRAY 


ARRAY 

ARRAY 

ARRAY 


R^ftL  2 LIBRARY 

4 
4 

13 

1 

4 

5 
17 

1 


634  10  FHT 

64  40 

0 100 


11.26 
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Sl»5pnUTIKE  TKCPUN  74/7t«  0^1  = 1 


FTN  4.5f414 


OP/16/77  13.11,28 


1 


*) 


10 


15 


2C 


1C 


4P 


SIPROUTI ^F  TWCFUN  <FRFO ,0 R1 , OB2 , N , FM I h , FM A X ,0 PMI N ,Orv AD 
DIPENFIOK'  FRFO(l)  ,081(1)  ,DB2(1) 

rOPMOK/PFLOTT/H,XHAKNO,X,RS,WE,WS,IFLITL  fCATGPY  ,ILINE1(7)  , 
IITITLI (7)  ,TPLAN£(’) ,LXNAHE(4) ,LYNAMF (4) , X C YCL E , YSTEP , YA X IS , 
2XAXIS,HITE,HITE1,TICLEK,X1,X2,X3,X4,XX,IPHASE,IN0PLT,IPLANK 

DATA  IX/EH  (E)?/ 


DB'^AXr-l  .HE? 
no  10  1=1, N 

Xl=n91(I)  IX2=C92(I)  $X3=XlfX2  J0B2(I)=X3 
IF (X3.GT  ,r8HAX)  npHAX  = X3  ?X3=10 . O**  (X3/10  . ) 

IFdPPaSF.EQ.l)  opiNT  20,FREQ(I)  ,X1,X2,0B2(IT  ,X7 
1?  rONTINUF 
20  format  (6G1 

IF (IPVASE.50. 0)  RETURN 

rY\/AL  = l.  5*HITE*YSTEP 

XimPMAX  ?CALL  n8tLMAX(Xl, YSTEP, DBHAX) 

DBHIN=OBmax-40.G  «IFfAPS(Xl-DB2(l>) .LE.35.0)  GO  TO  30 
YSTEP=10.C  ?PPMIN=DPMAX-80. 0 S DYV AL= 2 . 0* DT V A L 

3'*  XAXIS  = ALCG10  (FMAX/FMTN)»XCYCLE 

CALL  TITL^CIH  , 1,  L^  N A»-E  , <■  1 0 0 , L YN  AHF  , ♦ 1 0 0 , X AX  I S , Y A XI S ) 

<'ALL  HFI  GFT  (HITE) 

CALL  HLADIN  (ILINE  1,  «-10C, 3) 

CALL  HF.A^IN  (ITITLl,H0n,2,3) 

''ALL  FFS'^T  (-PA'ALF") 

CALL  HFACTN  (IPLANr,«.-»C,?,3) 

CALL  alp  f”L/CSTD") 
call  YTirxS(F) 

CALL  XLOC(PPIN,XCYrLF.,  CSMin, YSTEP) 

CALL  TICK*'t<  (TICLEM,FHAX,ySTEP,  YAXIS,FBmIN) 

pn  T=  1,N 

IF  (r9  2 (T  ) .LT, CPHTM)  OP2(I)=OPMIN 
rONTlK'UF. 

call  CUPVP (FRE^,nP?,N, D 

yi  = AL0GlC  (P*-AX) -1,1/XCYCLE  ?X1  = 10.0*»X1 
X2  = OnM  AX  -r  , 2F*''STFP 

CALL  PARAMC(xi,X'’,nYVAL,XMAKNO,H,X,IX,PS,IFLITE,HITP,HITEl) 
RETURN 
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FLX  = aTflW2  (TWOB» (XLO»* ALO)  ,l.-XLO*XLO) 

no  10  1=1, N 

J=I  J FRO  = F = ‘’^  (I)  TF  (FPO.GT.FMAX)  GC  TO  2D 

XI  =FPr/r7F:?rL 


X1=F»-AX  iF»‘AX  = VMI»F7f  ROH  ? I F ( X 1 , EQ  . F**  A X ) GO  TO  40 
CRQ=FPrn(J)  J IF  (FRO  ,GT  .'=’MAX)  GO  TO  40 
CFrrZL ( J) =P=AK  xj=jfl 
GO  TO  20 

4?  TWOB=?.*BHI  7FLX=FI-ATAN?CTWOB»CXHI**AHI) ,1,-XHI»XHI1 

no  GC  I=J,N 

FRC  = FF»’0(I)  «yi  = Ppri/FZcROH 


FFTURK 

FNr 


FZEROL, 

VIPRF 

2952 

VIPRF 

2953 

VIPPF 

2954 

VIPRF 

2955 

VIPRF 

2956 

VIPRF 

2957 

VIPRP 

2950 

VIPRF 

2959 

VIPRF 

2960 

VIPRF 

2961 

VIPRF 

2^62 

VIPRF 

2963 

1) /FIX) 

VIPRF 

2964 

VIPRF 

2965 

VIPRF 

2966 

VIPRF 

2967 

VIPRF 

2960 

VIPRF 

2969 

VIPRF 

2970 

VIPRF 

2971 

VIPRF 

2972 

VIPRF 

2 97  3 

VIPRF 

2974 

•X1*X1)  )/FLX) 

VIPRF 

2975 

VIPRF 

2976 

VIPRF 

2977 

VIPRF 

2978 

SX^BOLIO  R'"FFP^NCt 
FK'TFY  cCTMts 

3 yproctiK 

VARIA‘‘LFS  SN'  TXPC 


0 

A6I 

RPAL 

0 

«6T 

pr  AL 

r 

HcrOTL 

RE  AL 

1 33 

F^'AX 

Rf  AL 

137 

PPO 

real 

0 

PP^RTL 

RE  AL 

126 

161 

integer 

1” 

J 

irJTFGER 

0 

PF  AK' 

PF  iJL 

134 

Tunp 

pr  >iL 

0 

XLP 

pr  aL 

EXTFPf  AL5 

Tv«E 

AL^'G!'* 

real 

SYATF^rMT  LA'^FL'^ 

0 

1C 

70 

4*- 

^AC  (K=n 


k'^LC^ATION 

F.n. 

p.n. 

APR»v  F,P, 


F.F. 


F.P. 

AR^F 

1 LI'^kARY 


G4  20 
a 50 


0 

ALP 

RPAL 

0 

PLO 

RFAL 

135 

FLX 

REAL 

0 

FPEO 

RFAL 

0 

FZEROH 

RPAL 

136 

I 

INTEGER 

0 

ILOHI 

INTEGER 

0 

N 

INTEGER 

125 

PI 

REAL 

0 

XHI 

RFAL 

140 

XI 

RFAL 

ATAN? 

RFAL 

F.P. 

F.P. 

ARRAY  F.P. 

F.P. 

F.P. 

F.P. 

F.P. 

2 LIPFARY 

C 30  INACTIVE 
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Slf'RnUTI^F  XF^'^FI'N 

’•k/7U 

nPT  = i 

cjN  + 

L^ptl  i^rrY 

ir  • X 

FPC^'-TP 

i:  1^ 

?i  a 

dROPl^TIES 

EXT  REFS 

EYIT«^ 

1C*' 

*1 

??  7*^ 

2C  F 

FXT  REFS 

PfrOrPfl^  L''^rTH 

177^^ 

127 

OP/16/77 
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SIPPOUTTN? 

papam^ 

74/7A  0PT  = 1 FTN  i», 54-^14 

Oe/16/77 

13.11 

1 

SUPPOUTI  K»^  FAR  AMS  (XVrtL,YVAL  ,0  Y VAL  , XM  A KNO  , H , 01  SIFT  , JX  , PS , I FLI TE  , 

VIPRF 

2979 

IHITF 

VIPRF 

2900 

TALL 

HEIFHT 

VIPRF 

2901 

CALL 

PLML  <S  (••  fioo  ,XVAL  , YVAL> 

VIPRF 

2982 

c 

TALL 

FLRFAL  (XMA'<M0,4-?,"APIJT**,“ABIJT“) 

VIPRF 

290  3 

CALL 

FLMFFS  = f lOOtXVAL,  YVAL-nVVAL) 

VIPRF 

2904 

II^M 

*CA  LL  INTNO(  II  ,**APUT",**ARUT") 

VIPRF 

2905 

CALL 

FLMFSS  (••  FT.»",4-1C0,"ARUT*’,"APUT**) 

VIPRF 

2906 

CALL 

RLM^SS  ("(y)  100,XVAL,YVAL-?.0»nY\AL) 

VIPRF 

2987 

j '' 

CAlL 

FlRTAL  <DISTFT,1  ,"ATIT**,**AnUT") 

VIPRF 

2960 

CALL 

FLMrcs  (••  PT,  + i nQ,»ABUT","APUT**) 

VIPRF 

2909 

CALL 

PL  ml  5^  CJX,HCC,XVAL  ,YVAL-?.5*DYVAL) 

VIPRF 

2900 

TALL 

PLMrc5c*(p)  =$",«.10n,xVAL,YVAL-3.E^OYVAL) 

VIPRF 

2991 

CALL 

<^LPE  AL  (RS,f1  ,"APUT”,"AOIJT") 

VIPRF 

2992 

CALL 

PLM'-cc  in.?“,^-1C3,**ABUT'*,**APUT**) 

VIPRF 

2993 

CALL 

PLMrsEC*  S «•*,  «-130,  XVAL,  YVAL-4,  O^OYVAL) 

VIPRF 

2994 

CALL 

FES*"!  (••PA<^ALF”) 

VIPRF 

2995 

CALL 

RLMr  EE  (IFLITf  , 1 C , X V AL , YV A L -5. C’CYVAL) 

VIPRF 

2996 

FALL 

EA^ ALP (“L/CSTn") 

VIPRF 

2997 

CALL 

H“I GFT (HIT^) 

VIPRF 

2990 

returk 

VIPRF 

2909 

LNH 

VIPRF 

3000 

SY‘*3CLIC 

RPFFPENCE  ^AF 

(R  = l) 

EfJ'^pY 

Of jMTS 

1 

P AP  A 

VAPIAFL'^S 

TYC*: 

lELCFATIOK' 

n 

niSTFT 

Pr  AL 

F.r. 

0 

OYVAL 

RFAL 

F.P. 

C 

H 

Pf  AL 

F.F. 

0 

HITE 

real 

F.P. 

r 

HTT^l 

real 

F.P. 

0 

IFLITF 

INTEGER 

F.P. 

7fr 

II 

fk'Tcr  PR 

0 

JX 

IN  'EGER 

F.P. 

0 

P c 

PP.AL 

F.P. 

0 

XMAKNO 

R*-AL 

F.P. 

r 

XVA  L 

real 

P.  F. 

0 

yval 

REAL 

F.P. 

EXTFP4  ALS 

TY^'E  CRTS 

0 AS  Alp 

1 

HFIGHT 

1 

T^T^tO 

3 

RESET 

1 

P MF  CC 

L 

FLRFAL 

4 

STATISTtcc 

pporpflf'  ?2? 
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Sl«ROUTIK’=  TAPLF  7k/7U  0PT  = 1 


PTN 


1 


10 


1*= 


2C 


SUBROUTINE  TAELE( FREn,01,N, IFUN, ISCRPT) 

CI’^ENSION  FRE  0(1)  ,no(i  > 

PRINT  10  , IF  UM,  I FUN,  I FUN,  I FUN,  ISCRPT  , ISCRt'T  , IS  C^PT  , ISCRPT 
10  F0PMAT(1H-,»  FR-O. (H7, )• ,?X,fllO, 3(l^y,*FRFC. (H7. ) *,2Y,A10) / 

116X ,A  2 , T (14X, A5) ) 
raiNF5;  = f?/i<  TLINP'^TrMOO  (N,4) 

on  20  I=1,MINFS 

Il-I»MINTS  ? I?=Il«-NLINES  $ 13  = I 2f  NL  I N 
2^  opxNT  •'0  jFRPOd)  ,no(x)  ,«^PEO(Il)  ,00(11)  , FREO  ( I 2)  , OB  (1 2 ) , FR EP  ( 1 3)  , 
IP^  (!■») 

3:  F0P*^flT(Fi:.l,F12.?,'^(F94,i,F12,2)> 

IF  (LI^ Fdt.  EP. 0)  RETURN 

NLIN£S  = n-lTNRRT4-1 

no  4:  I=NLINFS,N 
4'  PR^'T  FC  ,FCcn  (j)  ,on(i) 

O:  FOP'-AT  (1  ?c)(  7) 

FFTIJPN 

rnjn 


08/16/77 

13.11 

VIPRF 

300  1 

VIPRF 

3002 

VIPRF 

3C03 

VIPRF 

3C04 

VIPRF 

3005 

VIPRF 

3C06 

VIPRF 

3007 

VIPRF 

3008 

VIPRF 

3009 

VIPRF 

3010 

VIPRF 

3011 

VIPRF 

3012 

VIPRF 

3013 

VIPRF 

3014 

VIPRF 

3015 

VIPRF 

3016 

VIPRF 

3017 

VIPRF 

3018 

VIPRF 

3019 

VIPRF 

3020 

VIPRF 

3021 

VIPRF 

3022 

VIPRF 

3 023 

SYmpCLIC  RFP^RrNC)  map  (Prl) 


ENTRY  FCT*''Tc 

3 

VAPIPrucc 

TYP- 

' M f-  1 r - 1 / 

T’^LOCATION 

C n p 

Rf  AL 

AF  R AY  F, n. 

14?  I 

INT'^^EP 

ISERPT 

I^'Tr  SE  P 

•^.P. 

145  I? 

IN'Tf  rpp 

It?  LTMP9T 

T^’^ESFP 

141  NLTN"^*^ 

I^•TC'•EP 

FTLP  ►AMTC 

PLT^UT 

c-MT 

TMINT  FUMPrirsc 

TY>E 

APr  c 

MfO 

INI  '^SFP 

2 IMPIN' 

0 

FPEP 

RPAL 

ARRAY 

P.P 

0 

IFUN 

INTFSER 

F.P 

144 

11 

INTEGER 

146 

13 

integer 

0 

N 

INTEGER 

F.P 

<^TATt^^’‘'T 

1 r 2 1 r CMX 

r 4 /■ 


] ’C 

13F  so  FMT 


125  30 


LCOFS 

Lf''PL 

X VI  n r y 

Tp 

LENGTH 

24 

2 r 

• T 

a '' 

pr  r» 

rr 

4 •* 

* I 

1 ^ 1C 

11° 

STA  TIFTirc 

ppqfranlpntt^  dlR 


OROPFPTIFS 


EXT  RRFS 
FXT  REFS 


F4T 
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*^l=>cnUTIM  74/74  nPT  = i 


PTN  + 


OP/16/77  13.11.28 


1 


5 


1C 


1*^ 


SUf’ROUTiN*:  TIC’^'iK  (T  ICL^'M  , FM  AX  , YSTEP  , Y AXI  S , O'^M  I ^) 

riY-KcxoK  '^PFC<2>  iOEFOFl  (2) 

virALPCir  (FVAX  ) £X2  = vi-2. S^TICLEN  ?Xl=Yl-TinLFN 
Xl-i:.»*Xl  «X2=13.**X2 

C»Mfty=nBYTN4YSTFF* vnxTS  $Dn=D0MIN  ?nEL 0B=YSTEP/5. 

FR«'r'(  1 ) = F*.fly  «FRE^(2)=^Mf\y  SOECREL  ( 1 ) =nPHIN  f:  REP  REL  ( 2 > =DBH  A X 
CALL  CLRV: (FRFn,nFCOFL,7,C) 

rR  = nB»CE  LTc 

IF  (nS.GT.FCMftx)  rtturn 

FR-n(l)  = Yl  -^IF  (AM^^ntHB^YSTEP)  .EO.O.  ) FREOtl)=Y2 
PL^'P!  L f l)=nP  EOEFo^l  ( ?)  = oq 
CALL  rLRVr(FREn,n[.rFrL  ,?,0> 

GO  TP  i: 

P VP 


VIPRF  3024 
VIPRF  3025 
VIPRF  3026 
VIPRF  3027 
VIPRF  3028 
VIPRF  3020 
VIPRF  3030 
VIPRF  3C31 
VIPRF  3032 
VIPRF  3033 
VIORF  3034 
VIPRF  3035 
VIPRF  3036 
VIPRF  3037 
VIPRF  3038 
VIPRF  3039 
VIPRF  3040 
VIPRF  3041 


CAFP  ^'c,  crvrPl'^'^  Pfl^lLS  CIAGNCSIF  OF  rdopL'^^ 


17  T 


THERP  IS  NC  FA7H  TO  THIS  STATEMFM, 


SYMOOLIP  Rcp-R-NTF  (R=n 


FKTFY 


V ARIA°L 

SK 

TYP" 

rflocattov 

f 6 

PC 

r>P  AL 

r> 

n p M I 

PC  Al 

F.P. 

67 

DFLO^ 

or  A L 

FF'^0 

RF^L 

AKR  Av 

6T 

Y1 

real 

C 

VAYIO 

real 

F.P. 

FVTFPK  AL ' 

T V'^F 

ARP<^ 

A L no  10 

RP  AL 

1 LIP^ARY 

TNLlwr 

FtHCTinN^^ 

TY'^r 

APO*^ 

A^-or 

or  AL 

? IMRIN 

STATTPF'^l  LAPfLF 
’I  1C 

STATTSTirc 

nroGPA>»  LF^'GTP  ■^4n  60 


65 

OPHAY 

RFAL 

72 

DECKEL 

KFAL 

ARRAY 

0 

Fmax 

RFAL 

F.P 

0 

ttclen 

REAL 

F.P 

64 

X2 

REAL 

0 

RFAL 

F.P 

CtiRVE 

L 
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^TNI  U,54-41i< 


ne/16/77  13.11.2P 


1 

PypPOUTIKl  PPOy^?.  (P7r  -.^r,  qf:Tft^y  ^ALPH/i^pi  ^pp^Y^pY^y(;;YCLF,^'VPL/lC, 

VIPRF 

3C42 

1 IPPI»- 

'F  > 

VIPRF 

3r«43 

FA  Tfl 

UJOTp/l,  9r/ 

VIDRF 

2CiUU 

VIPRF 

30*45 

■*' 

yxrflLFFio(p2/pn*yrYrLi:  ?yx=(xx-wiDTH)/2.c 

VIPRF 

3C46 

YX-aLFFiMFi)  4.YY/yr.YrLF  ‘XY  = 1J,3»*XY 

VIPRF 

3047 

IFr^nr  = FTy=T(UY  r * I r ^ H H = 5IA=XH/^  = 

VIPRF 

3C4fl 

IF(irpTMt-,-r,  > r,p  TO  13 

VIPRF 

3045 

IF^3H 

|P»r  ’TXr^HX'^  ;Tr»r3-<'^»=  iIA-7»-'A»  = 

VIPRF 

3 050 

1‘ 

VIPRF 

3 05  1 

1*  fall 

FL^rcc;  (IF,  S YX,V) 

VIPRF 

3052 

FALL 

PLP*"  ai  (PZPRO  ,1  ,"An'JT**,"ATUT”) 

VIPRF 

3 053 

FALL 

PI  M.  5c  (••  (M>  7F-,  1-1  3 T ,-Af3UT**,**APL'T») 

VIPRF 

3054 

FALL 

PLMrccf  Of,  + ir3,XX,Y-3,5;»nY) 

VIPRF 

3055 

I*" 

fall 

PLM-cc(ix,7,yy,v-T,q*'3Y) 

VIPRF 

30F6 

fall 

fl®*^  AL  (X  , NVOL  AF,”A^'JT**  ,‘*APUT‘’) 

VIPRF 

3 057 

call 

AL  P ("L/FFPi  LX'*') 

VIPRF 

3C5fl 

fall 

pL'^pSP(IP,'',xy,Y-2.'^*r)y) 

VIPRF 

3055 

Fall 

PLPEALfOP'TA,  7,**A'’'JT**,"APUT") 

VIFRF 

3C6li 

?0 

fall 

PL‘^r5P(TA,3,xy,Y--»,3*nv) 

VIPRF 

3C51 

PALI 

FLFT al  (Alpha  ,?,"AP'jT",**AiiiT-) 

VIPRF 

306? 

fall 

PAS  ALP  ("L/FSTn'*) 

VIPRF 

3 06  3 

V IPPF 

3 06i4 

FP  T!jP> 

V IPPF 

3065 

^N'P 

VIPRF 

3 066 

^YHPOLir 

•7cf:p 

MAP  ( P - n 

fNTPv 

JH  TO 

7 

P P p X n /\ 

VAPIAPLPS  F^. 

7 y r “ 

PFLOC  ATTOK' 

AL^HA 

ot  A L 

f.f. 

p 

ny 

p|  al 

F.i". 

“ 

^ 1 

o«-  A L 

P. 

P-*! 

T A 

TM^'^FEP 

’2A 

T F 

T^'T{  P 

pp7 

I X 

T^’IlFFR 

?r-* 

U'  J r'  T 

AL 

C 

XCyclp 

PP  ^ 1 

F.P. 

0 

V 

p^  al 

r , r . 

FyTLRKALP 

TY-r 

APR  c 

ALPFir 

RF  At 

1 lI^^R^FV 

D L M c c:  5: 

L 

SYAirv 

r»iT  la'^PL'^ 

7C 

1 C 

PTAII<- 

Tir^ 

opprDf\PL'"N'FT>-'  1*2 


0 

PETA 

R‘^AL 

0 

F7rpn 

RFAL 

G 

P? 

pr  iL 

?30 

IF 

INIF.GFP 

0 

IPRI^'E 

!►'  irGFR 

0 

mxflah 

TMEGFR 

0 

X 

RFAL 

'’75 

X Y 

REAL 

PLP^HL  U 


F.P. 

F.P. 

F.P, 

F.P. 

p.p. 

F.P. 
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BETA  lUflk  0PT=1 


PIN  Oe/16/77 


1 


n 


pr 


SU'^POUTI  NF  BFTACBtf^t^AK  ,SRLVAL  , X,  ALPHA  , FRFn,F7  FRO  ,SGN  , HILO) 

VIPRF 

3067 

VIPRE 

3C6fl 

FOFTA  (XX  jP*"  AX,  SPLVAL,X,  ALPHA,  PRF'lfF  ZERO,  SGN,  HILO)  = 

VIPRF 

3069 

1(1  C,  ( (<:oLVAL-'^FAK)  /20. 0)  )♦ 

VIPRE 

3C70 

2{HlLO  + SG^’*3TANZ(?.r*XX*X**ALPHA,1.0-X^X)  ) - 

VIPRF 

3071 

3(HILCf5GN»flTAN2(2.0»XX» (FRCQ/P7FR0) ALPHA, 

VIPRE 

3072 

1.  ^-(FRFn/FZCRO)  ♦ (FRFO/FZCRO)  ) ) 

VIPRE 

3073 

VIPRE 

3C74 

PPRV=1,C  inFLP=0.C5 

VIPRF 

3075 

Ft3t?v=FPPTA  (PPRV,PrAX,SPLVAL  , X , AL^'H  A , FREQ  , F ZERO  , S GN , HI  L C) 

VIPRE 

3076 

p-apcv  + nc’L'’ 

VIPRE 

3C77 

F=FE£TA(E,?EAX,SPLVAL,X, ALPHA , treO , F ZERO , SGN , HIL 0) 

VIPRF 

3078 

IF  (FPPV»  F.LF.  C.)  '■-0  TO  33 

VIPRE 

3079 

IF (APE (FORV) , GT,A99(F) ) GO  TO  10 

VIPRF 

3C"0 

Or:LP  = -rEL*=  E3  = PPR''  «F  = cr>pv/ 

VIPRE 

3CP1 

VIPRF 

3082 

li?  poRV="  JFFRV=F  ?9=B4-n'^L3 

VIPRF 

3083 

F = Fofta  ( E,pFAK,S0LVAL,  X,  ALC‘HA,FREO,FZERO,SGN,HILO) 

VIPRF 

3084 

IF  (FPRV^F.r^T.  0.)  GO  TO  13 

VIPRF 

3085 

VIPRF 

3086 

3-^  F=  (npFV*  F-E^FPPV)  / (F-PPRV) 

VIPRF 

3 087 

RETURN 

VIPRF 

3 008 

r NP 

VIPRF 

3 0 89 

off'(?-:nc£  (r-d 


'‘NTPv  PCT^'TS 
3 ''PT  A 


VAPTArLFE  SN 

TYPr 

RE L COAT  TON’ 

r ALPHA 

R'"  AL 

P.F. 

1P7  ocRv 

real 

If  2 P 

= r AL 

r Fcr-n 

RF  At 

F.  P. 

p MILO 

Pf  al 

F.F. 

r c*  r»] 

RF  AL 

F.P. 

n y 

or  AL 

F.F. 

fyiF  P^AL 

TY^L 

ARFC 

AT  AM? 

PF  AL 

2 LIP^ARY 

INLIwr  FINTTICNE 

TYor 

ARFS 

AFP 

RL  Al 

1 intrin 

ETA*"pN'^mt  LA'^fl^ 

" 1*^  i: 

14-* 

$■^4  TT^Txrs 

DFOrPA»»  l^iP  HP 


0 

p 

RFAL 

F.P 

160 

OEL° 

REAL 

161 

FPRV 

RFAL 

0 

F7ER0 

RFAL 

F.P 

0 

PE  AX 

RFAL 

F.F 

0 

EPLVAL 

RFAL 

P.P 

FPETA  RFAL  9 SF 
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SI^DOUTINF  TtR^LlN  74/7t4  nPT  = 1 pTN  Ofi/16/77  13.11.?8 


■1 

FUPPOUTI  TCPPLIM(X,0'‘LX,yiNIT,  XARRAY,IXARAY,  Y,  YAPRAY,N) 

VIORF 

3090 

VIPRF 

3CP1 

OI^'F.MSTON  XARRAY(  1)  ,YARRAY  ( 1) 

VIPRF 

3092 

VIPRF 

3093 

t; 

IFdXARAY.r-o,!)  r,0  TO  m 

VIPRF 

3 094 

VIPRF 

3095 

1=  (X-XIPIT) /niLX  FXI=I 

VIPRF 

3096 

Y = Y7PFflY  (IM)  ♦ (X-yTNIT-XI»nELX)  • (YAPFAY  (I+2>  - YARRAY(I+1)  ) / CELX 

VIPRF 

3097 

PE'^UPK 

VIPRF 

3098 

r 

VIPRF 

3099 

VIPRF 

3100 

lo: 

no  IK  I=1,N 

VIPRF 

3101 

J=I  7IF ( XfiPCfl Y (I> .G6 .X)  GO  TO  120 

VIPRF 

3102 

m 

VIPRF 

3103 

< r 

VIPRF 

3104 

1?^ 

IF (XAFRAY( J) .NF.X)  GO  TO  130 

VIPRF 

3105 

Y=YAPRAV(J)  'IRtturn 

VIPRF 

3106 

VIPRF 

3107 

1 

Vrt array  ( J- 1)  f 

VIPRF 

3108 

2^ 

1(X-XAFRAY(J-1))»(YAFRAY(M-YARRAY(J-1))/ ( X ARR AY ( J ) -X  ARRAY (J-1)  ) 

VIPRF 

3109 

VIPRF 

3110 

R«^TllP^ 

VIPRF 

3111 

FNO 

VIPRF 

3112 

’^Y'^OQLIC  '^FFrPl  NCr  (P=1) 


cKTPy 

■»  jrKOiJh 
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